2VA-Prova

Questões

VADeaths

data(VADeaths)
print(VADeaths)

##       Rural Male Rural Female Urban Male Urban Female
## 50-54       11.7          8.7       15.4          8.4
## 55-59       18.1         11.7       24.3         13.6
## 60-64       26.9         20.3       37.0         19.3
## 65-69       41.0         30.9       54.6         35.1
## 70-74       66.0         54.3       71.1         50.0

barplot(VADeaths, 
        beside = TRUE,  # Para barras lado a lado (agrupadas)
        col = c("steelblue", "tomato", "forestgreen", "purple", "orange"),
        main = "Taxas de Mortalidade em Virginia (1940)",
        xlab = "Grupos",
        ylab = "Taxas de Mortalidade (por 1000)",
        legend.text = rownames(VADeaths),
        args.legend = list(title = "Faixas Etárias"))

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")

tabela <- table(dados)

percentagens <- round(100 * tabela / sum(tabela), 1)

cores <- c("leve" = "lightblue", "moderado" = "lightgreen", "severo" = "salmon")

pie(tabela, 
    main = "Classificação de Pacientes por Estágio da Doença",
    col = cores,
    labels = paste0(names(tabela), " (", percentagens, "%)"))

legend("topright", 
       legend = names(tabela),
       fill = cores,
       title = "Estágios da Doença")

Teorema

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

# (1) Histograma e curva de densidade da população original
density_pop <- density(flu$age)
hist(flu$age, probability = TRUE, col = "grey", 
     main = "Distribuição das Idades das Mortes - Gripe Espanhola", 
     xlab = "Idade", ylab = "Densidade")
lines(density_pop, col = "blue", lwd = 2)

# (2) Criando 200 médias de amostras com tamanho 35
set.seed(123) # Para reprodutibilidade dos resultados
n <- 200      # Número de amostras
TamMedia <- 35 # Tamanho de cada amostra

# Vetor para armazenar as médias das amostras
xbar <- numeric(n)

# Loop para criar as médias das amostras
for(i in 1:n) {
  MinhaAmostra <- sample(flu$age, size = TamMedia)
  xbar[i] <- mean(MinhaAmostra)
}

# (3) Histograma e curva de densidade das médias amostrais
density_amostras <- density(xbar)
hist(xbar, probability = TRUE, col = "grey", 
     main = "Distribuição das Médias Amostrais - Teorema do Limite Central", 
     xlab = "Média das Idades", ylab = "Densidade")
lines(density_amostras, col = "blue", lwd = 2)