Buenas:
Con el siguiente código consigues lo que quieres.
i representa el inicio de la racha, salvo cuando no hay unos en cuyo caso vale NA.
j representa el final de la racha, salvo que la primera racha llegue al final en cuyo caso vale NA y se podría reemplazar por lenght(x)
Un saludo.
> x <- rbinom(20, 1, .3)
> x
[1] 0 0 0 1 1 1 1 1 0 0 1 0 0 1 0 1 0 0 0 1
> i <- which(x == 1)[1]
> i
[1] 4
> xx <- x[i:length(x)]
> xx
[1] 1 1 1 1 1 0 0 1 0 0 1 0 1 0 0 0 1
> f <- which(xx == 0)[1] + i - 1
> f
[1] 9