Deleting rows or cols that do not meet cut off
On 22/04/2009, at 8:34 AM, Crosby, Jacy R wrote:
How can I delete both rows and columns that do not meet a particular cut off value. Example:
d <- rbind(c(0, 1, 6, 4),
+ c(2, 5, 7, 5), + c(3, 6, 1, 6), + c(4, 4, 4, 4))
f <- as.matrix(d) f
[,1] [,2] [,3] [,4] [1,] 0 1 6 4 [2,] 2 5 7 5 [3,] 3 6 1 6 [4,] 4 4 4 4 I would like to delete all rows and columns that do not contain at least one element with a value less than 1.
Apparently you actually want ``less than or equal to 1''.
So I'd end up with:
f
[,1] [,2] [,3] [1,] 0 1 6 [3,] 3 6 1 Note: 1 is an arbitrary cut-off value.
d[apply(d,1,function(x){any(x<=1)}),apply(d,2,function(x){any(x<=1)})]
cheers,
Rolf Turner
######################################################################
Attention:\ This e-mail message is privileged and confid...{{dropped:9}}