Projeto 2VA

Prova 2VA - Leonardo Viana

VADeaths

# Para visualizar os dados
# View(VADeaths)

# Gerando o gráfico de barras empilhadas
barplot(VADeaths, main = "Virginia Death rates", xlab="Grupos", ylab="Mortes",
        col=cm.colors(5), beside=F, legend.text=T)

ClassificaçãoDoença

# Dados fornecidos
dados <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo","leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado","leve")

# Criando uma tabela de frequência
freq <- table(dados)

# Calculando as porcentagens
porcentagem <- round(prop.table(freq) * 100, 2)

# Criando o gráfico de pizza
pie(porcentagem, labels = paste0(names(porcentagem), "\n", porcentagem, "%"), col = c("yellow", "red", "darkgreen"), main = "Estágios da doença")

# Adicionando a legenda
legend("topright", legend = names(porcentagem), fill = c("yellow", "red", "darkgreen"))

Teorema

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

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

# 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 ="lightgreen")
lines(desity, col="darkred")