if (FALSE) { # requireNamespace("estimatr", quietly = TRUE)
# test that the returns to one year of education are equal to ten years of age
model <- estimatr::lm_robust(earnwk ~ age + educ, data = cps)
R <- c(0, -10, 1) # 0 * `intercept` - 10 * `age` + 1 * `education`
linear_combination(model, R)
}
Run the code above in your browser using DataLab