Count consecutive numbers in a vector

r, vector

Solution

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

Problem

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?

Original source