# NOT RUN {
# # #
# A 90-days chronic toxicity assay:
# Which of the doses (groups 2,3,4) do not show a decrease in
# bodyweight more pronounced than 90 percent of the bodyweight
# in the control group?
data(BW)
boxplot(Weight~Dose,data=BW)
BWnoninf <- sci.ratio(Weight~Dose, data=BW, type="Dunnett",
alternative="greater")
plot(BWnoninf, rho0=0.9)
# }
# NOT RUN {
# # #
# Antibiotic activity of 8 different strains of a micro organisms.
# (Horn and Vollandt, 1995):
data(Penicillin)
boxplot(diameter~strain, data=Penicillin)
allpairs<-sci.ratio(diameter~strain, data=Penicillin, type="Tukey")
plot(allpairs)
summary(allpairs)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab