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.delce...@powerint.com> To: r-help@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@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.
