# NOT RUN {
library(mratios)
data(angina)
aCI<-sci.ratio(response~dose, data=angina, type="Dunnett",
alternative="greater")
# Visualize testing for superiority
plot(aCI, rho0=1.25, rho0lty=3)
# }
Run the code above in your browser using DataLab