# NOT RUN {
mod <- lm(mpg ~ hp * wt + factor(gear), data = mtcars)
mfx <- marginaleffects(mod)
# average marginal effects
summary(mfx)
# average marginal effects by group
summary(mfx, by = "gear")
# }
Run the code above in your browser using DataLab