пакет или функция для подсчета длины последовательности?

Question

Мне было интересно, есть ли в R пакет или универсальная функция, которая считает длину последовательности.Например, если я ввожу последовательность

s1 <-c ('a', 'a', 'b', 'a', 'a', 'a', 'b', 'b') </p>

Предложенная функция 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