相关疑难解决方法(0)

问题:给定原子矢量,找到矢量中运行的起始和结束索引.

运行示例向量:

x = rev(rep(6:10, 1:5))
# [1] 10 10 10 10 10  9  9  9  9  8  8  8  7  7  6

输出来自rle():

rle(x)
# Run Length Encoding
#  lengths: int [1:5] 5 4 3 2 1
#  values : int [1:5] 10 9 8 7 6

期望的输出:

#   start end
# 1     1   5
# 2     6   9
# 3    10  12
# 4    13  14
# 5    15  15

基rle类似乎不提供此功能,但类Rle和函数rle2 …

我有一个矢量:

a <- c(1, 1, 0, 0, 1, 2, 0, 0)

我想得到每次运行相等值的开始和结束索引:

number start  end
0        3     4
0        7     8
1        1     2
1        5     5
2        6     6