
     # adjuntar el conjunto de datos `Titanic`
           
     # obtener una descripción general de los datos
           
     # graficar un mosaico


     # adjuntar el conjunto de datos `Titanic`
     Titanic_1 <- Titanic
           
     # obtener una descripción general de los datos
     summary(Titanic_1)
     
     # o
     str(Titanic_1)
     
     # o
     head(Titanic_1)
           
     # imprimir los datos de la consola
     Titanic_1
           
     # graficar un mosaico
     mosaicplot(Titanic_1, main = "Survival on the Titanic")


     test_object("Titanic_1")
     test_or({
     test_function("summary", args = "object")
     },{
     test_function("head", args = "x")
     },{
     test_function("str", args = "object")
     })
     test_output_contains("Titanic_1")
     test_function("mosaicplot", args = "x")
     success_msg("¡Estupendo! Esta primera impresión muestra, por ejemplo, que las tasas de supervivencia son más altas para las personas en clases de viaje más altas. El siguiente ejercicio considera un conjunto de datos menos agregado para modelar la probabilidad de supervivencia.")