如何一次性计算出多个期望频次

数据框testdata中有150个表格的数据，其中的8个表格数据如下（nrow=2, byrow=T）:
a b c d e f g h
1 106 9 82 72 22 1 5 3
2 106 9 82 72 8 0 0 1
3 106 9 82 72 0 1 0 0
4 106 9 82 72 0 1 0 0
5 106 9 82 72 0 1 0 0
6 106 9 82 72 16 1 31 19
7 106 9 82 72 2 0 7 2
8 106 9 82 72 0 0 0 5
问题是：如何一次性计算出每个表格中e, f, g, h每一格的期望频次？？请大家帮忙写几句程序啊！多谢多谢啦！

bb=lapply(1:nrow(testdata),function(x){
    chisq.test(matrix(unlist(testdata[x,]),2,byrow=T))$expected[2,]  
  })
  matrix(unlist(bb),ncol=4,byrow=T)
谢谢

ps. 重复发帖，小心版主打pp. lol

自己顶一个

或者：如何一次性计算出每个表格中a, b, c, d, e, f, g, h每一格的期望频次？？都可以

一个表格一个表格的计算太费时间了，大家帮忙写几句命令啊！

lapply

请5楼的朋友解释示范一下如何使用你提到的程序包来计算我需要的东西？我对R还是很菜的！

继续提高悬赏额度，等待热心坛友相助！

问题已经解决，等待给jmpamao付论坛币。解决办法见：

https://bbs.pinggu.org/forum.php? ... =2914881&page=1

jmpamao 发表于 2014-2-23 17:10
bb=lapply(1:nrow(testdata),function(x){
    chisq.test(matrix(unlist(testdata[x,]),2,byrow=T))$expe ...

抱歉啊！不是故意重复发帖的。昨天发完贴后才发现没有设置悬赏，所以有另外开了帖子。论坛币不多，也就表示个感谢之意。希望版主也能见谅！还是不要打pp的好！