# NOT RUN {
if (require("boot", quietly = TRUE)) {
model <- lm(mpg ~ wt + factor(cyl), data = mtcars)
b <- bootstrap_model(model)
print(head(b))
if (require("emmeans", quietly = TRUE)) {
est <- emmeans(b, consec ~ cyl)
print(model_parameters(est))
}
}
# }
Run the code above in your browser using DataLab