Estandarización de una distribución normal

estaturas <- rnorm(n = 10000, mean = 176, sd = 5)
cat("la media de las estaturas es: ", round(mean(estaturas),1)," y ","la desviación estándar de las estaturas es: ", round(sd(estaturas),1))

## la media de las estaturas es:  176.1  y  la desviación estándar de las estaturas es:  5

library(ggplot2)
qplot(estaturas, geom = "histogram", bins = 10, main="Histograma de las estaturas", xlab="Estaturas", fill=I("blue"))