Question on Reduce + rollmean

Hello useRs,

I'd like to perform a moving average on the dataset, xx. I've tried 
combining the functions Reduce and rollmean but it didn't work.

 > r <- function(n) rollmean(n, 2) # where 2 = averaging interval
 > output < - Reduce("r", x)
Error in f(init, x[[i]]) : unused argument(s) (x[[i]])

Is there anything wrong with the code in the first place?

where
 > x

[[1]]
     V1 V2 V3
[1,]  1  1  1
[2,]  2  2  2
[3,]  3  3  3

[[2]]
     V1 V2 V3
[1,]  4  4  4
[2,]  5  5  5
[3,]  6  6  6

[[3]]
     V1 V2 V3
[1,]  7  7  7
[2,]  8  8  8
[3,]  9  9  9

The moving average is to be performed on

1,4,7 = (1+4)/2 , (4+7)/2
2,5,8 = ..
3,6,9 = ..

Thanks

Muhammad

Muhammad Rahiz  |  Doctoral Student in Regional Climate Modeling
Climate Research Laboratory, School of Geography & the Environment	
Oxford University Centre for the Environment, University of Oxford
South Parks Road, Oxford, OX1 3QY, United Kingdom
Tel: +44 (0)1865-285194	 Mobile: +44 (0)7854-625974
Email: muhammad.rahiz at ouce.ox.ac.uk