library(sensemakr)
data('darfur')
darfur.reg <- lm(peacefactor ~ directlyharmed + village + female + age + farmer_dar +
herder_dar + pastvoted + hhsize_darfur, data=darfur)
tidy(darfur.reg) %>% filter(term == "directlyharmed")# A tibble: 1 × 5
term estimate std.error statistic p.value
<chr> <dbl> <dbl> <dbl> <dbl>
1 directlyharmed 0.0973 0.0233 4.18 0.0000318
[1] 0.348