Here is one more approach (just to give more options): > x <- 1:10 > xx <- embed(x, 2) > rowMeans(xx)
Or > complexFn(xx[,2], xx[,1]) Or other variants. -- Gregory (Greg) L. Snow Ph.D. Statistical Data Center Intermountain Healthcare [EMAIL PROTECTED] 801.408.8111 > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > project.org] On Behalf Of Kinoko > Sent: Wednesday, November 12, 2008 6:57 AM > To: r-help@r-project.org > Subject: Re: [R] any alternatives for complex for-loops? > > Gentlemen, > > Thank you for all your help. > This list is really amazing. > > Following Erik's hint I have managed to find the answer: > > > complexFn <- function(a,b){ > c <- (a+b)/2 > return(c) > } > > x <- zoo(1:10) > rollapply(x,width=2, function(xx) complexFn(xx[1],xx[2])) > > ______________________________________________ > 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.