APC2 CEBPD CTSC SPEG WARS2 YAF2
  GO:0000139    1      0         0        0        0         0
  GO:0000166    0      0         0        0        1         0
  GO:0000978    0      1         0        1        0         0
  GO:0001077    0      1         0        1        1         1
  GO:0001570    0      0         0        0        1         1
  GO:0001701    0      0         0        1        1         0
  GO:0001913    0      0         1        0        0         0
  GO:0003700    0      1         0        0        0         0
  GO:0003713    0      0         0        0        0         1
  GO:0003714    0      0         1        0        0         1
  GO:0004197    0      0         1        0        0         0
给定一个矩阵，先计算矩阵每一行的数值之和  w.sum <- as.numeric(apply(t,1,sum))
然后怎么根据w.sum，删除那些行的数值之和小于等于1的行，删完后的矩阵如下，求大牛指点R语言实现代码，谢谢！
                      APC2 CEBPD CTSC SPEG WARS2 YAF2
  GO:0000978    0      1         0        1        0         0
  GO:0001077    0      1         0        1        1         1
  GO:0001570    0      0         0        0        1         1
  GO:0001701    0      0         0        1        1         0
  GO:0003714    0      0         1        0        0         1