R中矩阵中的组求和

Question

所以我开始学习R，不知道是否有一种简单的方法可以将矩阵的每n个参数加总到每一行，并且当矩阵完成时，范围将移动到另一组列，直到所有列已计算

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

因此在这种情况下，如果n = 2，则输出应为

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

有没有一种有效的方法？谢谢！

Answer 1

数据：

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

设置：

n = 2

代码：

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

您的作业：:-）

• 下一个问题将很清楚。
• 阅读我使用过的每个功能：例如在R控制台中键入?t，?apply ...等。