Mam prosty wektor binarnya które staram się przełożyć na wektorb za pomocą funkcji Rcumsum. Jednak,cumsum nie zwraca dokładnie wektorab.

Oto przykład:

a <- c(1,0,0,0,1,1,1,1,0,0,1,0,0,0,1,1)

b <- c(1,2,2,2,3,4,5,6,7,7,8,9,9,9,10,11)

> cumsum(a)
[1] 1 1 1 1 2 3 4 5 5 5 6 6 6 6 7 8

Problem polega na tym, że ilekroć w wektorze pojawia się 0a następnie poprzedni numer powinien zostać zwiększony o 1, ale tylko dla pierwszego 0. Pozostałe mają tę samą wartość.

Każda rada byłaby świetna! :-)