[R] any alternatives for complex for-loops?

[Greg Snow]

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
greg.snow at imail.org
801.408.8111


> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
> project.org] On Behalf Of Kinoko
> Sent: Wednesday, November 12, 2008 6:57 AM
> To: r-help at 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 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.