
      library(AER)
      library(plm)
      data(Guns)


      # estimar el modelo extendido
      model_sete_ext <- 
      
      # imprimir un resumen utilizando errores estándar robustos


      # estimar el modelo extendido
      model_sete_ext <- plm(log(violent) ~ law + prisoners + density + income + population + afam + cauc + male, data = Guns, index = c("state", "year"), model = "within", effect = "twoways")
      
      # imprimir un resumen utilizando errores estándar robustos
      coeftest(model_sete_ext, vcov. = vcovHC, type = "HC1")


      ex() %>% check_function("plm") %>% {
        check_arg(., "formula") %>% check_equal()
        check_arg(., "data") %>% check_equal()
        check_arg(., "index") %>% check_equal()
        check_arg(., "model") %>% check_equal()
        check_arg(., "effect") %>% check_equal()
      }
      test_function("coeftest", args="x")
      test_student_typed("vcov. = vcovHC")
      success_msg("¡Correcto! Según los datos disponibles, no hay evidencia de que las leyes de la CCW sean un factor determinante de las tasas de delincuencia.")