Thanks! I tested it using: test<-c(1,1,1,1,1,0,0,0,0,0,0,0,1,1,0,1,0,1,0,1,1) that has a longer 7 zeros and 5 ones.
What part of the script does the selection of ones instead of zeros? - John On Sat, May 23, 2009 at 1:17 PM, Gabor Grothendieck <[email protected]> wrote: > 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.
