Here is one way of doing it: > a [1] 1 2 3 6 10 11 13 > b <- c(FALSE, diff(a) != 1) > cumsum(b) [1] 0 0 0 1 2 2 3 > split(a, cumsum(b)) $`0` [1] 1 2 3
$`1` [1] 6 $`2` [1] 10 11 $`3` [1] 13 > On 4/20/07, Bruno C. <[EMAIL PROTECTED]> wrote: > Hello, > > I need to extract sequences from an ordered vector. > For example, if > a<-c(1,2,3,6,10,11,13) > I need to get the followings 4 vectors > (1,2,3),(6),(10,11),(13) > > Thank You > -Bruno > > > ------------------------------------------------------ > Leggi GRATIS le tue mail con il telefonino i-mode™ di Wind > http://i-mode.wind.it/ > > ______________________________________________ > [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. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem you are trying to solve? ______________________________________________ [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.
