Prova 2VA

Prova 2VA - Joao Lucas

VADeaths

# Gerando o gráfico de barras empilhadas
barplot(VADeaths, main = "Virginia Death rates", xlab="Grupos", ylab="Mortes",
        col=rainbow(nrow(VADeaths)), 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 = rainbow(length(porcentagem)), main = "Estágios da doença")

# Adicionando a legenda
legend("topright", legend = names(porcentagem), fill = rainbow(length(porcentagem)))

Teorema

# Carregar o dataset
flu <- read.csv("flu.csv")

# Histograma da idade das mortes
hist(flu$age, probability = T, col = "lightblue", 
     main = "Distribuição da Idade das Mortes (População)", 
     xlab = "Idade", ylab = "Densidade")

# Curva de densidade para a idade das mortes
density_population <- density(flu$age)
lines(density_population, col = "red")

n <- 200        # Número de amostras
TamMedia <- 35  # Tamanho da amostra
amostras <- rep(NA, n)  # Vetor para armazenar as médias das amostras

for (i in 1:n) {
  # Amostra aleatória da população
  minha_amostra <- sample(flu$age, size = TamMedia)
  amostras[i] <- mean(minha_amostra)
}

# Histograma das médias das amostras
hist(amostras, probability = T, col = "lightblue", 
     main = "Distribuição das Médias das Amostras", 
     xlab = "Média das Amostras", ylab = "Densidade")

# Curva de densidade para as médias das amostras
density_amostras <- density(amostras)
lines(density_amostras, col = "red")