2016-03-12 2 views

ответ

2

Вот один из возможных решений:

mat = matrix(rnorm(100), 5) 

medians_of_mat <- numeric() 
for(i in 1:nrow(mat)) { 
    medians_of_mat[i] <- median(mat[i, ]) 
} 

Легче всего было бы использовать применять:

apply(mat, 1, median) 
0

Мы могли бы использовать rowMedians из library(matrixStats)

library(matrixStats) 
rowMedians(mat)