
     # adjuntar el paquete `AER`
           
     # cargar el conjunto de datos `CollegeDistance`
           
     # obtener una descripción general del conjunto de datos
           
     # generar un histograma de `distance`


     # adjuntar el paquete `AER`
     library(AER)           
           
     # cargar el conjunto de datos `CollegeDistance`
     data("CollegeDistance")
           
     # obtener una descripción general del conjunto de datos
     summary(CollegeDistance)
     # o
     str(CollegeDistance)
     # o
     head(CollegeDistance)
           
     # generar un histograma de `distance`
     hist(CollegeDistance$distance, main = "Distance to College", xlab = "Distance in 10 Miles")


     test_function("data")
     test_or({
     test_function("summary", args = "object")
     },{
     test_function("head", args = "x")
     },{
     test_function("str", args = "object")
     })
     test_function("hist", args = "x")
     success_msg("Estupendo. El histograma muestra que la mayoría de los encuestados vivían cerca de una universidad cuando estaban en la escuela secundaria.")