# load the package and attach the data set
# perform the regression and assign the result to `dummy_mod`
# load the package and attach the data set
library(AER)
data(CPS1985)
# perform the regression and assign the result to `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("Well done!")