Как преодолеть ошибку при совмещении среднего из трех матриц?

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