[R-SIG-Finance] Sequence ID

[Martin Becker]

Dear Jorge,

try rle():

test = c(0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,1,0,0,0,1,1,1,0)
myrle<-rle(test)
myrle$values[myrle$values==1]<-1000*seq_len(sum(myrle$values==1))
inverse.rle(myrle)

Best wishes,

  Martin


Jorge Nieves wrote:
> Hi,
>
> First I would like to apologize if this is not the right forum for the
> following question. 
>
> I have the following sequence  of ZEROS  and ONES. I would like to ID
> each  "package" of  ONES with a unique identifier.
>
> test = c(0,0,0,0,1,1,1,1,0,0,0,1,1,1,1,1,0,0,0,1,1,1,0)
>
>  An example could be the following vector
>
> id
> =c(0,0,0,0,1000,1000,1000,1000,0,0,0,2000,2000,2000,2000,2000,0,0,0,3000
> ,3000,3000,0)
>
> Where all the consecutive ONES have the same ID. I can create the ID
> using a loop, but I was wondering if anyone could recommend  another
> method. I suspect that something in the area of factors might help, but
> I do not know what will be the best approach. Any recommendations will
> be highly appreciated.
>
>
>
> Jorge Nieves
> Phone 212.782.7083
> Fax 212.642.7644
>
>
> 	[[alternative HTML version deleted]]
>
> _______________________________________________
> R-SIG-Finance at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-sig-finance
> -- Subscriber-posting only.
> -- If you want to post, subscribe first.
>   

-- 
Dr. Martin Becker
Statistics and Econometrics
Saarland University
Campus C3 1, Room 206
66123 Saarbruecken
Germany