对矩阵中的每 N 个值求和

因此，我查看了之前发布的这个问题，该问题用于对矩阵中每行中的每 2 个值求和。链接在这里：对行中的特定列求和。我还在这里查看了另一个问题：R 对矩阵中的每 k 列求和这和我的更相似。在这种情况下我无法让解决方案发挥作用。这是我正在使用的代码......

y <- matrix(1:27, nrow = 3)
y

m1 <- as.matrix(y)
n <- 3
dim(m1) <- c(nrow(m1)/n, ncol(m1), n)
res <- matrix(rowSums(apply(m1, 1, I)), ncol=n)
identical(res[1,],rowSums(y[1:3,]))


sapply(split.default(y, 0:(length(y)-1) %/% 3), rowSums)

我在应用此方法时收到一条错误消息。所需的输出是具有以下值的矩阵：

      [,1] [,2] [,3]
[1,]   12   39   66
[2,]   15   42   69
[3,]   18   45   72

求连续组的总和n每行的元素，您只需要编写一个函数来进行求和并将其应用到每行：

n <- 3
t(apply(y, 1, function(x) tapply(x, ceiling(seq_along(x)/n), sum)))
#       1  2  3
# [1,] 12 39 66
# [2,] 15 42 69
# [3,] 18 45 72