if (FALSE) { # require("emmeans", quietly = TRUE)
data(mtcars)
model <- lm(mpg ~ wt * factor(cyl), data = mtcars)
emm <- emmeans(model, "cyl")
get_parameters(emm)
emm <- emmeans(model, pairwise ~ cyl)
get_parameters(emm)
}
Run the code above in your browser using DataLab