Как использовать цикл for для вычисления средних значений матрицы

Question

У меня есть матрица (X), в которой я пытаюсь вычислить среднее значение для каждой строки. Я знаю, что rowMeans () можно использовать и будет отлично работать, однако я пытаюсь доказать, что цикл for также может быть использован. Как бы я это сделал?

X <- matrix(1:100, nrow = 25, ncol = 4)
for (i in 1:n) {
  nums[i] <- mean(X)
}
print(nums[i])

[1] 50,5

VS.

rowMeans(X)

[1] 38.5 39.5 40.5 41.5 42.5 43.5 44.5 45.5 46.5 47.5 48.5 49.5 50.5 51.5 52.5 53.5 54.5 55.5 56.5 57.5 58.5 59.5 60.5 61.5 62.5

Answer 1

Просто превращаю комментарий Дэвида в ответ.

row_m <- vector("list", nrow(X))
for (i in 1:nrow(X)) {
  row_m[i]<- mean(X[i,])
}

unlist(row_m)

#  [1] 38.5 39.5 40.5 41.5 42.5 43.5 44.5 45.5 46.5 47.5 48.5 49.5 50.5 51.5
# [15] 52.5 53.5 54.5 55.5 56.5 57.5 58.5 59.5 60.5 61.5 62.5