if (FALSE) { # require("emmeans")
# \donttest{
library(modelbased)
model <- lm(Sepal.Width ~ Species, data = iris)
contrasts <- estimate_contrasts(model)
means <- estimate_means(model)
plot(contrasts, means)
# }
}
Run the code above in your browser using DataLab