## Not run:
# \dontrun{Creating several Mutoss class objects}
# mu.test.obj.1 <- mutoss.apply(new(Class="Mutoss",
# pValues=runif(10)),
# f=bonferroni,
# label="Bonferroni Correction",
# alpha=0.05,
# silent=T)
# mu.test.obj.2 <- mutoss.apply(new(Class="Mutoss",
# pValues=runif(10)),
# f=holm,
# label="Holm's step-down-procedure",
# alpha=0.05,
# silent=T)
# mu.test.obj.3 <- mutoss.apply(new(Class="Mutoss",
# pValues=runif(10)),
# f=aorc,
# label="Asymtotically optimal rejection curve",
# alpha=0.05,
# startIDX_SUD = 1,
# silent=T)
# \dontrun{Trying to coercing a non-Mutoss object}
# compareMutoss(1)
# \dontrun{ Coercing several objects into a list}
# compare.1<- compareMutoss(mu.test.obj.1, mu.test.obj.2)
# compare.2<- compareMutoss(mu.test.obj.1, mu.test.obj.2, mu.test.obj.3)
# \dontrun{Plotting the adjusted pvalues. Identification available.}
# mu.compare.adjusted(compare.1, T)
# mu.compare.adjusted(compare.2, T)
# \dontrun{Plotting the critical values. Identification available.}
# mu.compare.critical(compare.1, T)
# mu.compare.critical(compare.2, T)
# \dontrun{Showing a textual sumary}
# mu.compare.summary(compare.1)
# mu.compare.summary(compare.2)
# ## End(Not run)Run the code above in your browser using DataLab