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.
