2VA_CPAD

2VA - CPAD

VADeaths

barplot(VADeaths, main = "Número de mortes a cada 1000 habitantes na Virginia", xlab="Grupos", ylab="Mortes", col=rainbow(5), beside=F, legend.text=T)

ClassificaçãoDoença

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

freq <- table(estagios)
porcs <- round(prop.table(freq) * 100, 2)

# Plots:
pie(porcs, labels = paste0(names(porcs), "\n", porcs, "%"), col = c("red", "green", "blue"), main = "Estágios")
legend("topright", legend = names(porcs), fill = c("red", "green", "blue"))

Teorema

flu  <- read.csv("flu.csv")
densidade<-density(flu$age)

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

n_medias<-200
length_media<-35

barra_m<-rep(NA, n_medias)
for(i in 1:n_medias){
  exe<-sample(flu$age, size = length_media)
  barra_m[i]<-mean(exe)
}
densidade<-density(barra_m)

hist(barra_m,probability=T,col = "grey")
lines(densidade, col="blue")