2VA

VADeaths

barplot(VADeaths,
        col = rainbow(7),
        main = "Death Rates in Virginia (1940)",
        xlab = "Population groups",
        ylab = "Death rates",
        legend.text = rownames(VADeaths),
        args.legend = list(x = "topright"), ,
        beside = FALSE
        )

ClassificaçãoDoença

doenca <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado", "leve")
tabela_doenca <- table(doenca)
porcentagens <- prop.table(tabela_doenca) * 100

pie(tabela_doenca, 
    labels = paste0(names(tabela_doenca), " (", round(porcentagens, 1), "%)"),
    col = rainbow(7),
    main = "Classificações da doença")

legend("topright", 
       legend = names(tabela_doenca), 
       fill = rainbow(7),
       title = "Estágios da doença")

Teorema

flu <- table(read.csv("C:/Users/06882689431.CIIDS/Documents/flu.csv"))
hist(flu, 
     freq = FALSE 
     )
lines(density(flu), col = "red")

num_amostras <- 200
tamanho_amostra <- 35

medias_amostras <- numeric(num_amostras)

for (i in 1:num_amostras) {
  amostra <- sample(flu, tamanho_amostra, replace = TRUE)
  medias_amostras[i] <- mean(amostra)
}

hist(medias_amostras, freq = FALSE)
lines(density(medias_amostras), col = "black")