# NOT RUN {
require(PairViz)
data(cancer)
bx <- with(cancer, split(sqrt(Survival),Organ))
a <- aov(sqrt(Survival) ~ Organ,data=cancer)
# }
# NOT RUN {
dev.new(height=4.5, width=9.5)
op <- par(no.readonly = TRUE)
par(cex.axis=.75, cex.main = 1.0, cex.lab=1)
par(mar=c(3,5,3,5))
mc_plot(bx,a,main="Pairwise comparisons of cancer types", ylab="Sqrt Survival")
par(op)
# }
Run the code above in your browser using DataLab