[R] All anchored series from a vector?

2007-12-18 Thread Johannes Graumann
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,

Re: [R] All anchored series from a vector?

2007-12-18 Thread Johannes Graumann
Should have been: > myvector <- c("A","B","C","D","E") > myseries <- miracle(myvector) > myseries > [1] > [[1]] "A" > [2] > [[1]] "A" "B" > [3] > [[1]] "A" "B" "C" > [4] > [[1]] "A" "B" "C" "D" > [5] > [[1]] "A" "B" "C" "D" "E" Sorry, Joh Johannes Graumann wrote: > Hi all, > > What may be a sma

Re: [R] All anchored series from a vector?

2007-12-18 Thread markleeds
>From: Johannes Graumann <[EMAIL PROTECTED]> >Date: 2007/12/18 Tue PM 04:40:37 CST >To: [EMAIL PROTECTED] >Subject: [R] All anchored series from a vector? lapply(1:length(myvector) function(.length) { c(myvector[1}:myvector[.length]) }) but test it because i didn't. &g

Re: [R] All anchored series from a vector?

2007-12-18 Thread markleeds
>From: [EMAIL PROTECTED] >Date: 2007/12/18 Tue PM 02:50:52 CST >To: Johannes Graumann <[EMAIL PROTECTED]> >Cc: r-help@r-project.org >Subject: Re: [R] All anchored series from a vector? i'm sorry. i tested it afterwards and of course it had some problems. below is the w

Re: [R] All anchored series from a vector?

2007-12-18 Thread Gabor Csardi
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) > mys

Re: [R] All anchored series from a vector?

2007-12-18 Thread Johannes Graumann
Debugged version: lapply(1:length(myvector), function(.length) { myvector[1:.length] }) Thanks for showing the direction! Joh [EMAIL PROTECTED] wrote: >>From: Johannes Graumann <[EMAIL PROTECTED]> >>Date: 2007/12/18 Tue PM 04:40:37 CST >>To: [EMAIL PROTECTED] >>Su

Re: [R] All anchored series from a vector?

2007-12-18 Thread 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: >> >> my

Re: [R] All anchored series from a vector?

2007-12-18 Thread Gabor Csardi
the corner cases. Gabor > > [EMAIL PROTECTED] wrote: > > >>From: Johannes Graumann <[EMAIL PROTECTED]> > >>Date: 2007/12/18 Tue PM 04:40:37 CST > >>To: [EMAIL PROTECTED] > >>Subject: [R] All anchored series from a vector? > > >

Re: [R] All anchored series from a vector?

2007-12-18 Thread Johannes Graumann
t;) > > result<- lapply(1:length(myvector), function(.length) { > myvector[1:.length] > }) > > > print(result) > > > > >>>From: Johannes Graumann <[EMAIL PROTECTED]> >>>Date: 2007/12/18 Tue PM 04:40:37 CST >>>To: [EMAIL PROTECTED] >>&g