require(lsmeans)
require(multcomp)
warp.lm <- lm(breaks ~ wool*tension, data = warpbreaks)
# Using 'lsm'
summary(glht(warp.lm, lsm(pairwise ~ tension | wool)))
# Same, but using an existing 'lsmeans' result
warp.lsmobj <- lsmeans(warp.lm, ~ tension | wool)
summary(as.glht(pairs(warp.lsmobj)))
# Same contrasts, but treat as one family
summary(as.glht(pairs(warp.lsmobj), by = NULL))
Run the code above in your browser using DataLab