Illustrate arm::display()

illustrate-display.R

# load packages
library(tidyverse)

# update {crdata} if necessary
remotes::install_github("carlislerainey/crdata")

# load data
weis <- crdata::weisiger2014

# rescale weisiger2014 explanatory variables using arm::rescale()
rs_weis <- weis %>%
  mutate(across(polity_conq:coord, arm::rescale)) 

# fit model
f <- resist ~ polity_conq + lndist + terrain + soldperterr + gdppc2 + coord
ls <- lm(f, data = rs_weis) # lpm (replicates Table 2 Model 3 of Weisiger 2014)

# display model fit
arm::display(ls, detail = TRUE)