R小程序有奖求助

  怎么让满足一定条件矩阵的某一行或多行删除，剩下的几行形成新的矩阵？例如以下矩阵，怎么让行之和为0的几行删掉，剩下的几行形成新的矩阵？时间紧迫，谢谢！
     0    0    0
     1   -1    1
     2   -2    0
     3   -3    0
     2   3      1

sample code:

data=matrix(c(0,0,0,1,-1,1,2,-2,0,3,-3,0,2,3,1),ncol=3,byrow=T)
indx=1:nrow(data)
rsum=apply(data,1,sum)
deleted=data[-indx[rsum==0],]


working as intended, tested in R.

用for语句，对每行求均值，mean
然后，生成新矩阵，有木有基础？

木文计量 发表于 2013-3-16 11:44
用for语句，对每行求均值，mean
然后，生成新矩阵，有木有基础？

希望能写出具体程序，就几行，我是有一点地方处理不了。

IntheRed 发表于 2013-3-17 01:09
sample code:

data=matrix(c(0,0,0,1,-1,1,2,-2,0,3,-3,0,2,3,1),ncol=3,byrow=T)

高手，膜拜呀，哈哈！