Ronak Shah
2020-12-02 16:53:59
You can get the difference between min and max with range and diff and select rows where it is greater than 2.
A[apply(A, 1, function(x) diff(range(x))) > 2, ]
# [,1] [,2] [,3] [,4] [,5]
#[1,] 1 2 3 4 5
#[2,] 2 3 6 4 3
For larger matrices you can also use rowRanges function from matrixStats.
mat <- matrixStats::rowRanges(A)
A[mat[, 2] - mat[, 1] > 2, ]
热门帖子
热门github
6