# NOT RUN {
if (require("boot", quietly = TRUE)) {
set.seed(2)
model <- lm(Sepal.Length ~ Species * Petal.Width, data = iris)
b <- bootstrap_parameters(model)
print(b)
if (require("emmeans")) {
est <- emmeans(b, trt.vs.ctrl ~ Species)
print(model_parameters(est))
}
}
# }
Run the code above in your browser using DataLab