我有一个包含年份的矢量A： 例如
A <- c(1978, 1979, 1980, 1981, 1984, 1987,1988,1989,1990,1991, 1992)
我希望能够计算错过一年之前的年份序列。所以我会寻找我的答案：4,1,6
我知道将rle用于重复数字的序列，但不知道该怎么做。
答案 0 :(得分：3)
假设A已排序：
A <- c(1978, 1979, 1980, 1981, 1984, 1987,1988,1989,1990,1991, 1992)
B <- cumsum(c(1, diff(A)>1))
rle(B)$lengths
#[1] 4 1 6