如何在结合三个矩阵的均值的同时克服误差？

Question

我无法一起计算三个矩阵的平均值。这是为了计算马氏距离。给定的点是（身高，年龄，分数）。我试图在不使用实际马氏距离的情况下进行计算。我陷入了这一步。

score <- matrix(c(580, 570, 590, 660, 600), byrow=1)
age <- matrix(c(29, 33, 37, 46, 55), byrow=1)
data <- data.frame(height, score, age)
data

  height score age
1     64   580  29
2     66   570  33
3     68   590  37
4     69   660  46
5     73   600  55

mean(score)
[1] 600

avgdata <- matrix(c(mean(height)), byrow=1)

avgdata
     [,1]
[1,]   68

averagedata <- matrix(c(mean(height, score, age)), byrow=1)

Error in mean.default(height, score, age) : 
  'trim' must be numeric of length one
In addition: Warning message:
In if (na.rm) x <- x[!is.na(x)] :
  the condition has length > 1 and only the first element will be used

新数据点分别为66、640和44（分别为高度，得分和年龄）。 最终答案是5.33