연속 된 행렬의 행간 합계

Question

특정 행렬을 따르는 행렬의 colwise sum을 원합니다. 예를 들어 50 행의 행렬이있는 경우 첫 번째 4 행이 해당 패턴 다음에 열 방향으로 추가되고 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] })