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. -- Csardi Gabor <[EMAIL PROTECTED]> MTA RMKI, ELTE TTK ______________________________________________ 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.