library(DirectEffects)
data(ploughs)
ate <- lm_robust(women_politics ~ plow + agricultural_suitability + tropical_climate + large_animals + political_hierarchies + economic_complexity + rugged, data=ploughs)
tidy(ate) %>% filter(term == "plow") term estimate std.error statistic p.value conf.low conf.high df
1 plow -2.1 2.1 -1 0.318 -6.25 2.04 145
outcome
1 women_politics