## Not run:
# ## these examples exercise all optional arguments
# data(catalystm)
# catalystm1.aov <- aov(concent ~ catalyst, data=catalystm)
#
# catalystm.glht <-
# glht(catalystm1.aov, linfct = mcp(catalyst = "Tukey"))
# confint(catalystm.glht)
#
# plot(catalystm.glht) ## this is the multcomp:::plot.glht
#
# mmcplot(catalystm.glht) ## mmcplot.glht sends its argument to HH:::as.multicomp.glht with
# ## the default arguments (estimate.sign = 1, order.contrasts = TRUE) unless overridden:
# ##
# mmcplot(catalystm.glht, order.contrasts=FALSE, estimate.sign=0, main="B'")
#
# catalystm.lmat <- cbind("AB-D" =c(1, 1, 0,-2),
# "A-B" =c(1,-1, 0, 0),
# "ABD-C"=c(1, 1,-3, 1))
# dimnames(catalystm.lmat)[[1]] <- levels(catalystm$catalyst)
# catalystm.mmc <-
# mmc(catalystm1.aov,
# linfct = mcp(catalyst = "Tukey"),
# focus.lmat=catalystm.lmat)
#
# mmcplot(catalystm.mmc, type="mca", style="confint")
# mmcplot(catalystm.mmc, type="lmat", style="confint")
# mmcplot(catalystm.mmc, type="none", style="confint")
# mmcplot(catalystm.mmc, type="none", style="confint", xlim.match=FALSE,
# main="xlim.match=FALSE is default for none confint")
# mmcplot(catalystm.mmc, type="none", style="confint", xlim.match=TRUE, main="out of bounds")
#
# mmcplot(catalystm.mmc$mca, style="confint")
# mmcplot(catalystm.mmc$lmat, style="confint")
# mmcplot(catalystm.mmc$none, style="confint")
#
# plot(catalystm.mmc) ## HH:::plot.mmc.multicomp method
#
# mmcplot(catalystm.mmc)
#
# mmcplot(catalystm.mmc)
# mmcplot(catalystm.mmc, style="isomeans")
# mmcplot(catalystm.mmc, style="confint")
# mmcplot(catalystm.mmc, style="both")
#
# mmcplot(catalystm.mmc, style="isomeans", type="mca")
# mmcplot(catalystm.mmc, style="isomeans", type="lmat")
# mmcplot(catalystm.mmc, style="isomeans", type="linfct")
# mmcplot(catalystm.mmc, style="isomeans", type="none")
# mmcplot(catalystm.mmc, style="isomeans", type="none", xlim.match=FALSE)
#
# mmcplot(catalystm.mmc, style="confint", type="mca")
# mmcplot(catalystm.mmc, style="confint", type="lmat")
# mmcplot(catalystm.mmc, style="confint", type="linfct")
# mmcplot(catalystm.mmc, style="confint", type="none")
# mmcplot(catalystm.mmc, style="confint", type="none", xlim.match=FALSE)
#
# mmcplot(catalystm.mmc, style="both", type="mca")
# mmcplot(catalystm.mmc, style="both", type="lmat")
# mmcplot(catalystm.mmc, style="both", type="linfct")
# mmcplot(catalystm.mmc, style="both", type="none")
# mmcplot(catalystm.mmc, style="both", type="none", xlim.match=FALSE)
#
# mmcplot(catalystm.mmc$mca)
# mmcplot(catalystm.mmc$mca$glht)
# mmcplot(catalystm.mmc$none)
# mmcplot(catalystm.mmc$none$glht)
# mmcplot(catalystm.mmc$lmat)
# mmcplot(catalystm.mmc$lmat$glht)
#
# mmcplot(catalystm.mmc, type="none")
# mmcplot(catalystm.mmc, type="none", xlim.match=FALSE)
# mmcplot(catalystm.mmc$none)
# ## End(Not run)
Run the code above in your browser using DataLab