全部版块 我的主页
› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛
请教：如何把下面的循环语句用apply或tapply表述
Leo统计
2290 6
2013-10-09
请教：如何把下面的循环语句用apply或tapply表述？      
        A <- vector("numeric", B)
        for(i in 1:B){
                data2 <- perm(data)
                A[ i ] <- test_statistic(data2,n1,n2,h1,h2,B)
        }


多谢！

二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复
笑意苍凉
2013-10-9 02:52:24
不知道楼主想要做什么？看你的这个循环 貌似就是想得到一套被随机打乱抽出来的数据吧 那么直接
data2<-data[sample(1:nrow(data)),]
不就可以了么？？
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

Leo统计
2013-10-9 04:41:43
语句已更新，再次请教
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

qoiqpwqr
2013-10-9 19:03:29
能不能用和怎样用apply或者tapply和你的data，你的perm函数，和test_statistics函数相关，请给出一个可以运行的例子。
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

Leo统计
2013-10-9 21:00:50
A <- vector("numeric", B)
for(i in 1:B){
data2 <- perm(data)
# print(data2)
A <- test_statistic(data2,n1,n2,h1,h2,B)
}
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

ntsean
2013-10-11 02:34:56
lapply(1:B, function(x) test_statistic(perm(data), n1, n2, h1, h2, B))
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群