## Not run: # TODO Check this example and set a seed!
# grp <- rep(1:5,10)
# x <- rnorm(50, grp)
# dataframe <- data.frame(x,grp)
# # Williams Contrast
# nparcomp(x ~grp, data=dataframe, asy.method = "probit",
# type = "Williams", alternative = "two.sided", plot.simci = TRUE, info = TRUE)
#
# # Dunnett Contrast
# nparcomp(x ~grp, data=dataframe, asy.method = "probit",control=1,
# type = "Dunnett", alternative = "two.sided", plot.simci = TRUE, info = TRUE)
#
# # Dunnett dose 3 is baseline
# nparcomp(x ~grp, data=dataframe, asy.method = "probit",
# type = "Dunnett", control = "3",alternative = "two.sided",
# plot.simci = TRUE, info = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab