Segunda VA

VADeaths

barplot(VADeaths, main = "Taxas de mortalidade por 1000 na Virgínia em 1940",
        xlab = "Grupo",
        ylab = "Mortes", 
        col = c("red", "green", "blue", "pink", "purple"),
        legend.text= T)

ClassificaçãoDoença

dados <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado", "leve")

freq <- table(dados)

porcentagem <- round(prop.table(freq) * 100, 2)

pie(porcentagem, labels = paste0(names(porcentagem), "\n", porcentagem, "%"), col = c("blue", "red", "green"), main = "Estágios da Doença")

legend("topleft", legend = names(porcentagem), fill = c("blue", "red", "green"))

Teorema

dados <- read.csv("flu.csv")

densidade_idade <- density(dados$age)

hist(dados$age, probability = T, col = "lightcoral", main = "Histograma e Densidade de Idade")
lines(densidade_idade, col = "blue")

n_amostras <- 200
tamanho_amostra <- 35
medias_amostrais <- rep(NA, n_amostras)

for(i in 1:n_amostras) {
  amostra <- sample(dados$age, size = tamanho_amostra)
  medias_amostrais[i] <- mean(amostra)
}

densidade_medias <- density(medias_amostrais)

hist(medias_amostrais, probability = T, col = "lightgreen", main = "Histograma e Densidade de Medias Amostrais")
lines(densidade_medias, col = "blue")