R计算5维数组中的双向边距

Question

我有一个5维数组，我想计算数组中的所有双向边际和。对于说明性示例，使用3维数组：

a <- array(1:24,c(2,3,4))

我想用尺寸计算双向边距：

X [2,3]; Y [2,4];和z [3,4]

所以x [2,3]看起来像

       [,1]    [,2]    [,3]
[1,]     40      48      56
[2,]     44      52      60

显然，在5维数组中将有10个这样的双向边际和。

由于