Если вы только начинаете, это сложнее, потому что вы, вероятно, захотите передать то, что известно как анонимная функция, в lapply()
, а не что-то легко доступное, например mean
.Вот как это сделать:
Scores <- list(T = c(10,8,7,9), M = c(9,10,8,7), L = c(6,8,10), B = c(10,9,10,7,8))
lapply(Scores, function(x) diff(range(x)))
# $T
# [1] 3
#
# $M
# [1] 3
#
# $L
# [1] 4
#
# $B
# [1] 3