R中矩阵的群和

因此，我开始学习R，不知道是否有一种简单的方法可以对每行的矩阵的每n个参数求和，当它完成范围时，移动到另一组列，直到所有列都被计算出来

[1    4    7]
[2    5    8]
[3    6    9]

所以在这种情况下，如果n=2，输出应该是

[5    11    8]
[7    13   10]
[9    15   12]

有没有有效的方法？谢谢大家!

数据：

m <- matrix(1:9, 3, 3)

代码：

结果:

#     [,1] [,2] [,3]
#[1,]    5   11    8
#[2,]    7   13   10
#[3,]    9   15   12

你的家庭作业：-

下一个问题将是一个明确的问题。 阅读我使用过的每个函数：对于例如t型，应用。。。等进入R控制台。

---

是的，所以如果n=2，它将选择[14]并对它们求和，然后[39]，直到完成需要解决的函数：apply，zoo:：rollsum。祝你好运：-谢谢你的耐心：

t(
apply(m, 1, function(x) { zoo::rollsum(c(x,x), n, align = "left")[seq_along(x)] })
)

#     [,1] [,2] [,3]
#[1,]    5   11    8
#[2,]    7   13   10
#[3,]    9   15   12