矩阵的顺序求和顺序

Question

我想按照特定序列进行矩阵的逐次求和。例如，如果我有一个50行的矩阵，前四行将以字符方式添加，然后按照该模式添加2到5行，3到6，......等。我怎么能在R？中做到这一点？

Answer 1

set.seed(123)
mat <- matrix(sample(100,50*10,replace=TRUE),nrow=50)
n <- nrow(mat)
sapply(1:(n-3), function(i) colSums(mat[i:(i+3),]))

#UPDATE

oddInd <- sapply(1:(n-3), function(i) {ind <-i:(i+3); ind[!!ind%%2] })
evenInd <- sapply(1:(n-3), function(i) {ind <-i:(i+3); ind[!ind%%2] })