# NOT RUN {
ps_mod <- glm(am ~ mpg + cyl + I(hp^2), data = mtcars)
outcome_mod <- lm(qsec ~ am + hp + disp + wt, data = mtcars)
observed_bias_tbl(
ps_mod,
outcome_mod,
drop_list = list(
group_one = c("mpg", "hp"),
group_two = c("cyl", "wt")
)
)
# }
Run the code above in your browser using DataLab