r - Count consecutive numbers in a vector

Question

If I have a vector like

"a": 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0

I want to know how many 1 are together in a, in this case the answer would be 3 and 2.

Is there any script that can do this?

Answer 1

See ?rle.

## create example vector
a <- c(rep(0, 3), rep(1, 3), rep(0, 4), rep(1, 2), rep(0, 3))

## count continuous values
r <- rle(a)

## fetch continuous length for value 1
r$lengths[r$values == 1]
# [1] 3 2