r - 3D矩阵求和？

Question

有什么方法可以求和 3 维矩阵？

例如，如果您有数据

m<-array(c(1:9,18:26,30:38),dim=c(3,3,3))

, , 1

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

, , 2

     [,1] [,2] [,3]
[1,]   18   21   24
[2,]   19   22   25
[3,]   20   23   26

, , 3

     [,1] [,2] [,3]
[1,]   30   33   36
[2,]   31   34   37
[3,]   32   35   38

你的答案将是：549。

另外，如果有六个 3by3 矩阵，如何将每两个矩阵相加并打印？用for循环？

Answer 1

调用sum()您的每个维度，这里有三个：

R> m<-array(c(1:9,18:26,30:38),dim=c(3,3,3))
R> sum(sum(sum(m)))
[1] 549
R> 

或者删除维度并调用sum()现在的单个向量：

R> sum(c(m))
[1] 549
R> 

编辑我把事情复杂化了。一个 3-array 仍然只是一个向量，所以它所需要的只是

R> sum(m)
[1] 549
R> 

感谢@thelatemail 提供线索。