计算2个向量之间的断点距离

这里有两种解决方案。首次出租

a <- c(1, 2, 4, 3, 5, 6)
b <- c(1, 4, 3, 2, 6, 5)

注意,我切换了 b 。然后

# Creating a vector of pairs of subsequent elements of x
fun <- function(x) paste(head(x, -1), tail(x, -1))
BP <- function(x, y) fun(a)[!fun(a) %in% fun(b)]
BP(a, b)
# [1] "1 2" "2 4" "3 5" "5 6"

考虑此顺序。也就是说,它包括 5 6 作为断点。或者,如果顺序无关紧要,只是为了彼此相邻:

BP <- function(x, y) fun(a)[!(fun(a) %in% fun(b) | fun(a) %in% fun(rev(b)))]
BP(a, b)
# [1] "1 2" "2 4" "3 5"

然后 length(BP(a, b)) 给出距离。