Сумма единственного последовательного номера

Question

У меня есть массив, который похож на

a <- c(1,2,3,7,8,14,17,18)

Я хочу суммировать только последовательные числа, я хочу ответить так, используя R.

"6, 15, 14,35 "

Буду очень признателен за ваш ответ.

Answer 1

Использование tapply для группировки по последовательным значениям,

tapply(a, cumsum(c(FALSE, diff(a) != 1)), sum)
# 0  1  2  3 
# 6 15 14 35