2va

2va CPAD - Grad - 2024.2

VADeaths

barplot(VADeaths, 
        main = "Taxas de mortalidade na Virgínia em 1940", 
        xlab = "Grupos", 
        ylab = "Mortes", 
        col = rainbow(5), 
        beside = F, 
        legend.text = T
        )

ClassificaçãoDoença

dados <- c(8, 9, 3)

labels <- c("Leve", "Moderado", "Severo")

porcentagem <- round(dados/sum(dados)*100)

labelsGrafico <- paste(porcentagem, "%", sep = "")

pie(dados, 
    labels = 
      labelsGrafico, 
    main = "Gráfico de Estágios", 
    col = rainbow(4)
    )

legend("topright", 
       legend = labels,
       cex = 0.8,
       fill = rainbow(dados)
       )

Teorema

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

hist(flu$age, 
     probability = T, 
     col = "grey"
     ) 

densidade <- density(flu$age)

lines(densidade, 
      col = "blue"
      )

n <- 200
tamanho <- 35

xbar <- rep(NA, n)

for(i in 1:n){
  amostras <- sample(flu$age,
                     size = tamanho
                     )
  xbar[i] <- mean(amostras)
}

hist(xbar,
     probability = T,
     col = "grey")

densidade <- density(xbar)

lines(densidade,
      col = "blue")