用于计算序列长度的包或函数？

Question

我想知道R中是否有一个包或通用函数来计算序列长度。 例如，如果我输入序列

S1和S2; -c（ 'A'， 'A'， 'B'， 'A'， 'A'， 'A'， 'B'， 'b'）的

建议的函数F（s1，'a'）将返回一个向量： [2,3] 和F（s1，'b'）将返回[1,2]

Answer 1

那些疯狂打字的人肯定已经去过其他地方了：

 s1<- c('a','a','b','a','a','a','b','b')
 F1 <- function(s, el) {rle(s)$lengths[rle(s)$values==el] }
 F1(s1, "a")
#[1] 2 3
 F1(s1, "b")
#[1] 1 2