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 <ggrothendi...@gmail.com> wrote: > Try this: > > with(rle(test), max(lengths[!!values])) > > > On Sat, May 23, 2009 at 1:09 PM, tsunhin wong <thjw...@gmail.com> 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 >> >> ______________________________________________ >> R-help@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. >> > ______________________________________________ R-help@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.