library(readr) library(AER) Titanic_2 <- read_csv("https://stanford.io/2O9RUCF")[,-3] colnames(Titanic_2) = c("Survived", "Class", "Sex", "Age", "Siblings", "Parents", "Fare") # estimar ambas densidades y guardar los resultados en `dens_age_surv` y` dens_age_died` # graficar ambas densidades juntas # estimar ambas densidades y guardar los resultados en `dens_age_surv` y` dens_age_died` dens_age_surv <- density(Titanic_2$Age[Titanic_2$Survived==1]) dens_age_died <- density(Titanic_2$Age[Titanic_2$Survived==0]) # graficar ambas densidades juntas plot(dens_age_surv, ylim = c(0, 0.035), col = "darkgreen", lwd = 1.5, main = "Density Estimates of \'Age\'") lines(dens_age_died, col = "darkred", lwd = 1.5) legend(legend = c("Survived", "Died"), x ="topright", col = c("darkgreen", "darkred"), lwd = 1.5) test_predefined_objects("Titanic_2") test_object("dens_age_surv") test_object("dens_age_died") test_function("plot", args = "x") test_function("lines", args = "x") success_msg("¡Lindo! Se debe tener en cuenta que, aunque ambas distribuciones parecen ser bastante similares, una diferencia es que una mayor proporción de los supervivientes eran niños. Por lo tanto, los pasajeros evidentemente intentaron salvar a los niños dándoles un lugar en las balsas salvavidas.")