## 'data.frame': 75034 obs. of 1 variable:
## $ age: int 0 0 0 0 0 0 0 0 0 0 ...
## [1] 0 0 0 0 0 0
## [1] 42.02857 41.11429 35.08571 43.42857 50.00000 40.00000
hist(medias_amostras,
main = "Histograma das Médias das Amostras",
xlab = "Média das Amostras",
col = "green",
probability = TRUE,
border = "black")
# Adicionar a curva de densidade
lines(density(medias_amostras), col = "red", lwd = 2)