Exercício 2

Primeiro é necessário carregar o banco de dados utilizado e vemos as seis primeiras observações:

dieta <- read.csv(file = "dados_dieta.csv", sep = ";", dec = ",")
head(dieta)

E algumas observações de apoio:

Dieta 1:

summary(dieta$Dieta_1)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   1.550   1.800   1.827   2.100   2.500 

Dieta 2:

summary(dieta$Dieta_2)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  2.000   2.500   2.700   2.827   3.100   4.000 

Após isso geramos o histograma da primeira dieta:

hist(dieta$Dieta_1, main = "Histograma da Dieta 1", ylab = "Peso perdido", xlab = "")

Na sequência da segunda dieta, então podemos comparar os resultados:

hist(dieta$Dieta_2, main = "Histograma da Dieta 2", ylab = "Peso perdido", xlab = "")

É possível observar que a dieta dois apresentou melhores resultados, ocorrendo maior perda de peso.