# NOT RUN {
library(marginaleffects)
# Convert numeric variables to categorical before fitting the model
dat <- mtcars
dat$cyl <- as.factor(dat$cyl)
dat$am <- as.logical(dat$am)
mod <- lm(mpg ~ hp + cyl + am, data = dat)
# Compute and summarize marginal means
mm <- marginalmeans(mod)
summary(mm)
# }
Run the code above in your browser using DataLab