cumsum

vec <- c(FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE)
cumsum(!vec)
[1] 1 2 2 3 3 3 4 5

vec <- c(1:5, 5:1)
cummin(vec)
[1] 1 1 1 1 1 1 1 1 1 1
cummax(vec)
[1] 1 2 3 4 5 5 5 5 5 5
cumprod(vec)
[1] 1 2 6 24 120 600 2400 7200 14400 14400