[R] Determine longest run of number

[arun]

HI,
Try this:
vec1<-c(0,0,1,1,1,1,0,1,1,0,0,0,1,1)
tapply(rle(vec1)$lengths,rle(vec1)$values,FUN=max)
#0 1 
#3 4 
A.K.




----- Original Message -----
From: Mark Del Cerro <Mark.DelCerro at powerint.com>
To: r-help at r-project.org
Cc: 
Sent: Friday, November 2, 2012 5:20 PM
Subject: [R] Determine longest run of number

Does anybody know a way to determine the longest run of a number in a
vector of numbers?
For example if I have the following numbers: 0 0 1 1 1 1 0 1 1 0 0 0 1
1; how can I determine that the longest run of 1's = 4 and longest run
of 0's = 3?

Thanks,
Mark

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.