一个小程序求帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. xx = list(x1 = matrix(sample(1:12),4,3),
   
2.           x2 = matrix(sample(2:13),4,3),
   
3.           x3 = matrix(sample(3:14),4,3)
   
4.           )

复制代码

1. > xx
   
2. $x1
   
3.       [,1] [,2] [,3]
   
4. [1,]    2    4   11
   
5. [2,]    9    1    7
   
6. [3,]    5   10    3
   
7. [4,]    6   12    8
   
8. 
   
9. $x2
   
10.       [,1] [,2] [,3]
    
11. [1,]    5    7   12
    
12. [2,]    8    3   11
    
13. [3,]    9   13   10
    
14. [4,]    6    4    2
    
15. 
    
16. $x3
    
17.       [,1] [,2] [,3]
    
18. [1,]   14    9    6
    
19. [2,]    8    4   10
    
20. [3,]   13   12   11
    
21. [4,]    3    7    5

复制代码

现在想求对应的三个list中，3个变量的方差，比如求var(2,5,14);var(4,7,9),......
将结果输出为data.frame
直觉应该用ldply，可是一直没有成功
怎么编写程序呢？

谢谢啦

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：求帮忙 小程序 matrix Sample Frame 程序

1. apply(matrix(unlist(xx), ncol=3), 1, var)

复制代码

qoiqpwqr 发表于 2014-10-9 19:52

最后的结果成
[1]  4.0000000  1.3333333  9.3333333 25.3333333 17.3333333  6.3333333
[7] 13.0000000 21.3333333 21.3333333  0.3333333 37.3333333  4.3333333
貌似不是这么写吧……

apply(rbind(xx[[1]],xx[[2]],xx[[3]]),2,var)

qoiqpwqr 发表于 2014-10-9 19:52

太感谢啦，一步到位！真简练！
不得不说R神奇，版主更神奇，呵呵

李会超 发表于 2014-10-9 21:25
最后的结果成
[1]  4.0000000  1.3333333  9.3333333 25.3333333 17.3333333  6.3333333
[7] 13.00000 ...

这个就比较容易处理了，转换为矩阵就行了

李会超 发表于 2014-10-9 21:28
apply(rbind(xx[[1]],xx[[2]],xx[[3]]),2,var)

亲，你这个好像不对哦