R 少于5行

我试图找出哪些简单事件的最大值和最小值之间的差异不超过10。 我的密码是

sampleSpace <- combinayions(100,3,seq(1,100,by=1),repeats.allowed=FALSE)


diff <- sample_max - sample_min 

---

sampleSpacesampleSpace
sampleSpace的子集，其中每行中最大值和最小值之间的差值由以下公式给出：

ss[1,12]3
#>     [2,]    1    2    4
#>     [3,]    1    2    5
#>     [4,]    1    2    6
#>     [5,]    1    2    7
#>     [6,]    1    2    8
#>     [7,]    1    2    9
#>     [8,]    1    2   10
#>     [9,]    1    2   11
#>    [10,]    1    3    2
#>    [11,]    1    3    4
#>    [12,]    1    3    5
#>    [13,]    1    3    6
#>    [14,]    1    3    7
#>    [15,]    1    3    8
#>    [16,]    1    3    9
#>    [17,]    1    3   10
#>    [18,]    1    3   11
#>    [19,]    1    4    2
#>    [20,]    1    4    3
#>    [21,]    1    4    5
#>    [22,]    1    4    6
#>    [23,]    1    4    7
#>    [24,]    1    4    8
#>    [25,]    1    4    9
#>    [26,]    1    4   10
#>    [27,]    1    4   11
#>    [28,]    1    5    2
#>    [29,]    1    5    3
#>    [30,]    1    5    4
您可以简单地使用
which（）
，如下所示：

sampleSpace = sampleSpace[which(diff <= 10), ]
head(sampleSpace)

我们可以使用
matrixStats

library(matrixStats)
m1 <- rowRanges(sampleSpace)
out <- sampleSpace[(m1[,2]- m1[,1]) <= 10,]

库（matrixStats）
m1排列是从哪个包来的？@AllanCameron库（gtools）可能这个
diff[which（diff diff2
我得到的下标超出了这个范围，请再试一次。我没有得到任何错误消息..使用
sampleSpace=sampleSpace[which（diff）我得到一个Kill信号（SIGKILL）错误this@mei这可能与资源有关吗？处理所有290万行需要一段时间。在我的机器上运行良好（虽然需要几秒钟）
     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    1    2    4
[3,]    1    2    5
[4,]    1    2    6
[5,]    1    2    7
[6,]    1    2    8

library(matrixStats)
m1 <- rowRanges(sampleSpace)
out <- sampleSpace[(m1[,2]- m1[,1]) <= 10,]