2VA

Questões

VADeaths

data(VADeaths)

par(mar = c(5, 5, 4, 8), xpd = TRUE)

barplot(VADeaths, beside = TRUE, col = c("skyblue", "orange", "pink", "green", "purple"),
        main = "VA Deaths by Age and Population Group", 
        xlab = "Age Group", ylab = "Death Rate", 
        names.arg = colnames(VADeaths), cex.names = 0.8)

legend("topright", inset = c(-0.15, 0), legend = rownames(VADeaths), 
       fill = c("skyblue", "orange", "pink", "green", "purple"), xpd = TRUE)

ClassificaçãoDoença

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

table_stages <- table(stages)
percentages <- round(100 * prop.table(table_stages), 1)

pie(table_stages, labels = paste(names(table_stages), percentages, "%"),
    main = "Classificação dos Estágios da Doença", col = rainbow(length(table_stages)))

legend("topright", legend = names(table_stages), fill = rainbow(length(table_stages)))

Teorema

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

hist(flu$age, probability = TRUE, main = "Histograma das Idades durante a Gripe Espanhola", xlab = "Idades", ylab = "Densidade")
lines(density(flu$age), col = "red")

sample_means <- replicate(200, mean(sample(flu$age, 35)))

hist(sample_means, probability = TRUE, main = "Histograma das Médias das Amostras (n = 35)", xlab = "Médias", ylab = "Densidade")
lines(density(sample_means), col = "blue")