僕会这样写~
> beta <- as.matrix(beta)
> beta[beta[, 1] > 0 & beta[, 2] > 0, ]
[,1] [,2]
[1,] 1 4
[2,] 3 6
这儿
Filtering out rows in a matrix containing only 0 in R有个非常有创意的例子可参考哦!( :-) 哈哈,竟然会有人想到使用幂数,0怎么自乘幂数,结果都会是0 :blush: )
beta <- as.matrix(beta)
[,1] [,2]
[1,] 1 4
[2,] 0 0
[3,] 3 6
beta^2
[,1] [,2]
[1,] 1 16
[2,] 0 0
[3,] 9 36
rowSums(beta^2)
[1] 17 0 45
beta[rowSums(beta^2)>0, ]
[,1] [,2]
[1,] 1 4
[2,] 3 6