r - 查找间隔(段)的成对重叠

Question

我们有两组区间 A 和 B。我所说的间隔是指一对有序的整数，例如 c(2,5)。我想找到所有重叠的间隔对 - 一个来自 A ，一个来自 B 。

例如，如果 A 和 B 如下:

A=c(c(1,7), c(2,5), c(4, 16))
B=c(c(2,3), c(2,20))

然后 FindOverlap(A, B) 应该返回如下矩阵(唯一的零元素是因为 A 的第三个区间不与第一个区间重叠B):

1 1
1 1
0 1

你有什么有效的想法吗？

Answer 1

intervals 包似乎在这里提供了一个解决方案:

require("intervals")
A <- rbind(A1=c(1,7), A2=c(2,5), A3=c(4, 16))
B <- rbind(B1=c(2,3), B2=c(2,20))

# here you can also define if it is an closed or open interval
Aint <- Intervals(A)
Bint <- Intervals(B)

# that should be what you are looking for    
interval_overlap(Aint, Bint)

A nice demonstration