Hi: Here's one approach:
> x <- rep(c(1,2,1,3,5), each=5) > rle(x) Run Length Encoding lengths: int [1:5] 5 5 5 5 5 values : num [1:5] 1 2 1 3 5 > table(rle(x)$values) 1 2 3 5 2 1 1 1 > unname(table(rle(x)$values))[1] [1] 2 HTH, Dennis On Fri, Jun 25, 2010 at 2:30 AM, Muhammad Rahiz < muhammad.ra...@ouce.ox.ac.uk> wrote: > Hi all, > > I'd like to find how many sets of 1s there are in the following example; > > x <- rep(c(1,2,1,3,5), each=5) > > I know that there are two sets of 1s, visually. Any function in R that > allows me to automate the process? > > Thanks. > > > Muhammad > > ______________________________________________ > 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. > [[alternative HTML version deleted]] ______________________________________________ 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.
