Итак, я взглянул на этот вопрос, опубликованный ранее, который использовался для суммирования каждых 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