# NOT RUN {
mod <- glm(am ~ hp * wt, data = mtcars, family = binomial)
mfx <- marginaleffects(mod)
head(mfx)
# Average Marginal Effect (AME)
summary(mfx)
tidy(mfx)
plot(mfx)
# Marginal Effect at the Mean (MEM)
marginaleffects(mod, newdata = datagrid())
# Marginal Effect at User-Specified Values (Counterfactual)
marginaleffects(mod, newdata = datagrid(hp = c(100, 110)))
# Marginal Effects at User-Specified Values (Counterfactual)
mfx <- marginaleffects(mod, newdata = datagrid(hp = c(100, 110), grid.type = "counterfactual"))
head(mfx)
# Heteroskedasticity robust standard errors
marginaleffects(mod, vcov = sandwich::vcovHC(mod))
# }
Run the code above in your browser using DataLab