R help - Dec 2015 - need for help for solving operations in a vector

I think that the rle() function may help you to tackle the problem in a more
general way.

https://stat.ethz.ch/R-manual/R-devel/library/base/html/rle.html

Using William's suggested series:

x <- c(2,2,3,4,4,4,4,5,5,5,3,1,1,0,0,0,1,1,1)
> x
[1] 2 2 3 4 4 4 4 5 5 5 3 1 1 0 0 0 1 1 1

rle.x <- rle(x)
rle.x
Run Length Encoding
  lengths: int [1:8] 2 1 4 3 1 2 3 3
  values : num [1:8] 2 3 4 5 3 1 0 1

And then you can apply diff() to rle.x$values while keeping in mind the run
lengths (rle.x$lengths).

Good luck,

--
GG


	[[alternative HTML version deleted]]