循环得到的结果如何提取出来

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R语言新手，求助大神。ddt是数据名，从第一行中抽取8个数，重复5次，想将得到的结果提取成一个新的数据表。print(s)在输出面板里是5次重复抽样的值，不过s里只有最后一次抽取的值，不知道怎么回事。求助各位！
程序：
for(i in 1:5){
s<-sample(ddt[1, ],8, replace=T)
print(s)}
输出结果：
X150  X280   X50 X280.1  X190 X150.1  X270  X230
A1_40 4.365 0.625 0.875  0.625 4.315  4.365 2.335 3.415
       X200  X150 X150.1  X230   X30   X90 X150.2 X230.1
A1_40 4.515 4.365  4.365 3.415 0.795 1.565  4.365  3.415
       X240  X220  X250   X10  X330  X140  X270  X300
A1_40 3.705 3.425 3.195 0.445 0.485 2.355 2.335 0.485
       X130   X90  X220   X40  X270 X40.1  X170  X140
A1_40 2.245 1.565 3.425 0.705 2.335 0.705 4.715 2.355
        X90  X350  X330  X310 X350.1   X20  X230  X210
A1_40 1.565 0.565 0.485 0.475  0.565 0.565 3.415 4.235
s里只有最后一次抽样的值：


回贴 回贴 分享 知识树

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

1. set.seed(1)
   
2. ddt = matrix(rnorm(16),ncol = 8)
   
3. 
   
4. s = NULL
   
5. re = array(NA,dim =c(5,8,2))
   
6. for (j in 1:2) {
   
7.   for(i in 1:5){
   
8.     re[i,,j]<-sample(ddt[,i],8, replace=T)
   
9.   }
   
10. }

复制代码

1. set.seed(1)
   
2. ddt = matrix(rnorm(16),ncol = 8)
   
3. 
   
4. s2<-NULL
   
5. s<-list()
   
6. for(i in 1:5){
   
7.   s[[i]]<-sample(ddt[,1],8,replace=T)
   
8.   s2<-rbind(s2,s[[i]])}
   
9. s2

复制代码

慕目穆木 发表于 2018-4-8 13:24

谢谢！

zhou1_20 发表于 2018-4-8 12:18

十分感谢!