All anchored series from a vector?

miracle <- function(x) { lapply(seq(along=x), function(y) x[1:y]) }

Gabor
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 at 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 <csardi at rmki.kfki.hu>    MTA RMKI, ELTE TTK

All anchored series from a vector?

Thread (4 messages)