
      # adjuntar el paquete y cargar el conjunto de datos
        
      # obtener una descripción general del conjunto de datos
        
      # verificar que Guns es un panel balanceado
      years  <- 
      states <-


      # adjuntar el paquete `AER` y cargar el conjunto de datos `Guns`
      library(AER)  
      data("Guns")  
          
      # obtener una descripción general del conjunto de datos
      summary(Guns)
        
      # verificar que Guns es un panel balanceado
      years  <- length(levels(Guns$year))
      states <- length(levels(Guns$state))
      years*states == nrow(Guns)


      ex() %>% check_library("AER")
      test_function("data")
      test_or({
          ex() %>% check_function("summary") %>% check_result() %>% check_equal()
        },{
          f <- ex() %>% override_solution("str(Guns)") 
          f %>% check_function("str") %>% check_result() %>% check_equal()
        })
      ex() %>% check_object("years") %>% check_equal()
      ex() %>% check_object("states") %>% check_equal()
      ex() %>% check_function("nrow") %>% check_arg("x") %>% check_equal()
      test_or({
          test_student_typed("years*states == nrow(Guns)")
        },{
          test_student_typed("states*years == nrow(Guns)")
        },{
          test_student_typed("nrow(Guns) == years*states")
        },{
          test_student_typed("nrow(Guns) == states*years")
        })
      success_msg("¡Correcto! Existen 51 estados (entidades) más observados durante 23 años (períodos de tiempo). El producto de la cantidad de entidades es igual a la cantidad de observaciones totales en el conjunto de datos.")