
      # cargar el paquete y adjuntar el conjunto de datos
  
      # realizar la regresión y asignar el resultado a `dummy_mod`


      # cargar el paquete y adjuntar el conjunto de datos
      library(AER)
      data(CPS1985)
      
      # realizar la regresión y asignar el resultado a `dummy_mod`
      dummy_mod <- lm(wage ~ gender, data = CPS1985)


      test_function("library")
      test_function("data")
      test_or({
        ex() %>% override_solution("attach(CPS1985); dummy_mod <- lm(wage ~ gender)") %>% check_object("dummy_mod")
      },{
        ex() %>% override_solution("dummy_mod <- lm(CPS1985$wage ~ CPS1985$gender)") %>% check_object("dummy_mod")
      },{
        ex() %>% override_solution("dummy_mod <- lm(wage ~ gender, data = CPS1985)") %>% check_object("dummy_mod")
      }
      )
      success_msg("¡Bien hecho!")