# NOT RUN {
if(requireNamespace("multcomp")) {
pigs.lm <- lm(log(conc) ~ source + factor(percent), data = pigs)
pigs.emm <- emmeans(pigs.lm, "percent", type = "response")
multcomp::cld(pigs.emm, alpha = 0.10, Letters = LETTERS)
}
# }
Run the code above in your browser using DataLab