Skip to content
Prev 172161 / 398506 Next

Partial sum of a vector

Per the help page rollapply needs to be given a zoo or ts object, so  
you just coerce the matrix to zoo:

 > data_m <- matrix(1:20, ncol=2)
 > data_q <-matrix(,nrow=7,ncol=2)
# then you can vectorize the process
 > data_q[,] <-rollapply(as.zoo(data_m[,]),4,FUN=sum)
 > data_q
      [,1] [,2]
[1,]   10   50
[2,]   14   54
[3,]   18   58
[4,]   22   62
[5,]   26   66
[6,]   30   70
[7,]   34   74