2º Verificação de aprendizagem

Computação para análise de dados

Questões 1-3

VADeaths

barplot(VADeaths, main = "Taxa de mortalidade na Virgina em 1940 (Taxa por 1000 habitantes).",
        xlab = "Tipos de cidadões", 
        ylab = "Mortes", col = sample(colors(),5), beside = F, legend.text = T)

ClassificaçãoDoença

quantidade <- c(8, 9, 3)
nomes <- c("leve", "moderado","severo")
porcentagem <- paste(round(quantidade/sum(quantidade)* 100),"%",sep="")
cores <- sample(colors(), 3)


pie(quantidade, labels= porcentagem, main= "Estágios da doença",col= cores)
legend("topright",  legend=nomes, cex=0.8, fill= cores)

Teorema

df <- read.csv("/home/rick/Documentos/Rstudio_files/flu.csv")

densidade <- density(df$age)
hist(df$age, probability= T, col = "blue", main = "Histograma da idade", xlab = "Idade", ylab = "Densidade")
lines(densidade, col="red")

resultado <- rep(0, 200)
for (i in 1:200) {
  amostra <- sample(df$age, size = 35)
  resultado[i] <- mean(amostra)
}


densidade2 <- density(resultado)
hist(resultado, probability= T, col = "blue", main = "Histograma da média", xlab = "Média", ylab = "Densidade")
lines(densidade2, col="red")