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