2 VA

VADeaths

barplot(VADeaths, main = "deaths",xlab = "Grupos",ylab = "Mortes",col = rainbow(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")

# tabela de 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("red", "pink", "lightgreen"), main = "Estágios da doença")

# legenda
legend("topright", legend = names(porcentagem), fill = c("red", "pink", "lightgreen"))

Teorema

flu <- read_csv("./data/flu.csv")

## Rows: 75034 Columns: 1
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (1): age
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

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

#amostragem
n<-200
tamMed<-35
xbar<-rep(NA,n)
for (i in 1:n) {
  amostra<-sample(flu$age,size = tamMed)
  xbar[i]<-mean(amostra)
}
desity<-density(xbar)
hist(xbar,probability=T,col="grey")
lines(desity,col = "blue")