# NOT RUN {
data(liver)
# Williams Contrast
a<-mctp(weight ~dosage, data=liver, asy.method = "fisher",
type = "Williams", alternative = "two.sided",
plot.simci = TRUE, info = FALSE)
summary(a)
# Dunnett Contrast
b<-mctp(weight ~dosage, data=liver, asy.method = "fisher",
type = "Dunnett", alternative = "two.sided",
plot.simci = TRUE, info = FALSE)
summary(b)
# Dunnett dose 3 is baseline
c<-mctp(weight ~dosage, data=liver, asy.method = "log.odds",
type = "Dunnett", control = "3",alternative = "two.sided",
plot.simci = TRUE, info = FALSE)
summary(c)
data(colu)
# Tukey comparison- one sided (less)
a<-mctp(corpora~ dose, data=colu, asy.method = "log.odds",
type = "Tukey",alternative = "less",
plot.simci = TRUE, info = FALSE)
summary(a)
# Tukey comparison- one sided (greater)
b<-mctp(corpora~ dose, data=colu, asy.method = "mult.t",
type = "Tukey",alternative = "greater",
plot.simci = TRUE, info = FALSE)
summary(b)
# Tukey comparison- one sided (less)
c<-mctp(corpora~ dose, data=colu, asy.method = "mult.t",
type = "Tukey",alternative = "less",
plot.simci = TRUE, info = FALSE)
summary(c)
# Marcus comparison- one sided (greater)
d<-mctp(corpora~ dose, data=colu, asy.method = "fisher",
type = "Marcus",alternative = "greater",
plot.simci = TRUE, info = FALSE)
summary(d)
# }
Run the code above in your browser using DataLab