最近在用R软件编程，编程中遇到一个数组第三维相加的问题。
例子如下
> x<-array(1:24,c(2,2,2,2))
> x
, , 1, 1

     [,1] [,2]
[1,]    1    3
[2,]    2    4

, , 2, 1

     [,1] [,2]
[1,]    5    7
[2,]    6    8

, , 1, 2

     [,1] [,2]
[1,]    9   11
[2,]   10   12

, , 2, 2

     [,1] [,2]
[1,]   13   15
[2,]   14   16


第三维度相加为
x[,,1,]+x[,,2,]
, , 1

     [,1] [,2]
[1,]    6   10
[2,]    8   12

, , 2

     [,1] [,2]
[1,]   22   26
[2,]   24   28


想问下 有没有直接的公式计算。比如MATLAB为sum（x，3）