将函数应用于R中的多维数组以查找每个数组中每一列的均值

Question

z <- array(1:12, dim = c(2,2,3))
z
, , 1

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

, , 2

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

, , 3

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

对于上面的3个矩阵的数组，我想通过获取每个数组的每一列的平均值来创建一个单个矩阵。因此，我期望的矩阵维数应为3 x2。第一个条目应为1＆2的平均值。第一行的第二个条目应为3＆4的平均值。 我可以使用任何Apply函数或任何循环来创建矩阵吗？ 感谢您的帮助。