Try this: with(rle(test), max(lengths[!!values]))
On Sat, May 23, 2009 at 1:09 PM, tsunhin wong <[email protected]> wrote: > Dear R Users, > > I am trying to write a script to count the longest consecutive > occurring 1 in a sequence: > test<-c(1,1,1,1,1,1,1,0,0,0,0,1,1,0,1,0,1,0,1,1) > > In the case of the object "test", 1 occurs 7 consecutive times which > is the longest consecutive within the sequence. > I know I can always do a thorough from start to end search and use a > counter to count. > But, do you know there can be a smarter way to achieve this in R? > > Thanks a lot! > > - John > > ______________________________________________ > [email protected] 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. > ______________________________________________ [email protected] 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.
