Prova 2 VA

Questões

VADeaths

library(graphics)

# Margem direita maior + sem recorte
par(mar = c(5, 4, 4, 10), xpd = NA)

cores <- c("#FFCCCC", "#FFE5CC", "#FFFFCC", "#CCFFCC", "#CCE5FF")

# Faz o gráfico
bp <- barplot(
  VADeaths,
  main = "Taxas de mortalidade na Virgínia (1940)",
  xlab = "Grupos demográficos",
  ylab = "Mortes",
  col  = cores,
  beside = FALSE
)

# Pega o topo do eixo y e coloca a legenda fora a direita
# Fiz isso para a legenda não ficar encima do gráfico!!
y_top <- par("usr")[4]
x_right <- max(bp) + 1

legend(
  x = x_right, y = y_top,
  legend = rownames(VADeaths),
  fill = cores,
  xjust = 0, yjust = 1,
  bty = "n"
)

ClassificaçãoDoença

# Quantidades de pacientes em cada estágio
valores <- c(8, 9, 3)

# Nome das categorias
categorias <- c("Leve", "Moderado", "Severo")

# Calcula as porcentagens
porcentagens <- round(valores / sum(valores) * 100)

# Rótulos das fatias
rotulos <- paste(porcentagens, "%", sep = "")

# Cores para o gráfico
cores_pastel <- c("#CCE5FF", "#FFFFCC","#FFCCCC")

# Cria o gráfico de pizza
pie(
  valores,
  labels = rotulos,
  main = "Gráfico de estágios da doença",
  col = cores_pastel
)

# Adiciona a legenda
legend(
  "topright",
  legend = categorias,
  cex = 0.8,
  fill = cores_pastel
)

Teorema

# Lê o arquivo CSV
dados <- read.csv("C:/Users/danta/Documents/Déborah_2025_2/CPAD/prova_2va/flu.csv")

# Calcula a densidade da idade
dens_idade <- density(dados$age)

# Histograma das idades
hist(
  dados$age,
  probability = TRUE,
  col = "#FFCCCC",
  main = "Histograma das idades"
)

# Linha de densidade
lines(dens_idade, col = "darkred")

# Amostragem
num_amostras <- 200
tam_amostra <- 35
medias <- rep(NA, num_amostras)

# Calcula as médias das amostras
for(i in 1:num_amostras){
  amostra_temp <- sample(dados$age, size = tam_amostra)
  medias[i] <- mean(amostra_temp)
}

# Densidade das médias
dens_medias <- density(medias)

# Histograma das médias
hist(
  medias,
  probability = TRUE,
  col = "#FFFFCC",
  main = "Histograma das médias"
)

# Linha da densidade
lines(dens_medias, col = "darkred")