Segunda VA

Segunda VA

VADeaths

barplot(VADeaths, main = "Mortes a cada 1000 habitantes na Virginia", xlab="Grupos", ylab="Mortes", col=topo.colors(5), beside=F, legend.text=T)

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

# Frequência
freq <- table(dados)

# Porcentagens
porcentagem <- round(prop.table(freq) * 100, 2)

# Gráfico
pie(porcentagem, labels = paste0(names(porcentagem), "\n", porcentagem, "%"), col = c("brown", "blue", "green"), main = "Estágios")

# Legenda
legend("topright", legend = names(porcentagem), fill = c("brown", "blue", "green"))

Teorema

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

desity<-density(flu$age)
hist(flu$age, probability=T,col = "pink")
lines(desity,col="blue")

# amostragem
n<-200
TamMedia<-35
xbar<-rep(NA, n)
for(i in 1:n){
  MinhaAmostra<-sample(flu$age, size = TamMedia)
  xbar[i]<-mean(MinhaAmostra)
}

desity<-density(xbar)
hist(xbar,probability=T,col = "grey")
lines(desity, col="blue")