Texto libre variado libre
library(fdth) library(readr)
medias <- c(21.9, 30.8, 34.8, 33.5, 29.7) mean(medias)
## [1] 30.14