tidyverse
apply
dplyr
summarise(empleados, sal.med = mean(salario), n = n())
## sal.med n ## 1 34419.57 474