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