[R] All anchored series from a vector?

[Johannes Graumann]

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 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.
>