Segunda VA

VADeaths

ClassificaçãoDaDoença

Teorema

histograma e a curva de densidade

## '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

Histograma e curva de densidade das médias

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)