warp.lm <- lm(breaks ~ wool * tension, data = warpbreaks)
warp.lsm <- lsmeans(warp.lm, ~ tension | wool)
cld(warp.lsm) # implicitly uses by = "wool"
cld(warp.lsm, by = "tension") # overrides implicit 'by'
# Mimic grouping bars and compare all 6 means
cld(warp.lsm, by = NULL, Letters = "||||||||", alpha = .01)
Run the code above in your browser using DataLab