Increment in loop - OK

This works.

m <- matrix(1:3,3,3)
x1 <- list(m, m+1, m+2, m+3, m+4) 

out <- list()
for (i in 1:4){
t[[i]] <- Reduce("+", x1[c(i:i+1)])
}


Muhammad

--
Muhammad Rahiz  |  Doctoral Student in Regional Climate Modeling					
Climate Research Laboratory, School of Geography & the Environment	
Oxford University Centre for the Environment
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

useRs,

I'm getting limited success in trying to apply increment in a loop.

The following defined function creates a +1 increment

incr <- function(x){
eval.parent(substitute(x <- x + 1))
print(x) }

How do I apply it in a loop on my test dataset, x1, so that the procedure becomes

x1[c(1:2)]
x1[c(2:3)]
x1[c(3:4)]

where x1 = 

  

m <- matrix(1:3,3,3)
x1 <- list(m, m+1, m+2, m+3, m+4) 
    

Thanks.


Muhammad