library(readr) library(AER) Titanic_2 <- read_csv("https://stanford.io/2O9RUCF")[,-3] colnames(Titanic_2) = c("Survived", "Class", "Sex", "Age", "Siblings", "Parents", "Fare") # generar `t_abs`, una tabla de contingencia de `Survived` y `Class` # generar `t_rel`, la tabla de frecuencias relativas # crear el gráfico de barras # generar `t_abs`, una tabla de contingencia de `Survived` y `Class` t_abs <-table(Titanic_2$Survived, Titanic_2$Class) # generar `t_rel`, la tabla de frecuencias relativas t_rel <- t_abs/nrow(Titanic_2) # crear el gráfico de barras barplot(table(Titanic_2$Survived, Titanic_2$Class)/nrow(Titanic_2), col = c("darkred","darkgreen"), ylim = c(0,0.6), main = "Relative Frequencies of Survival", xlab = "Class") test_predefined_objects("Titanic_2") test_object("t_abs") test_object("t_rel") test_function("barplot", args = "height")