Elegant. Thanks to you too. Joh
Gabor Csardi wrote: > miracle <- function(x) { lapply(seq(along=x), function(y) x[1:y]) } > > Gabor > > On Tue, Dec 18, 2007 at 11:40:37PM +0100, Johannes Graumann wrote: >> Hi all, >> >> What may be a smart, efficient way to get the following result: >> >> myvector <- c("A","B","C","D","E") >> myseries <- miracle(myvector) >> myseries >> [1] >> [[1]] "A" >> [2] >> [[1]] "A" "B" >> [3] >> [[1]] "A" "B" >> [4] >> [[1]] "A" "B" "C" >> [5] >> [[1]] "A" "B" "C" "D" >> [6] >> [[1]] "A" "B" "C" "D" "E" >> >> Thanks for any hints, >> >> Joh >> >> ______________________________________________ >> 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.