[R] Increment in loop - OK

[Muhammad Rahiz]

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






Muhammad Rahiz wrote:
> 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
>
>