# Example 1:
# Simultaneous confidence intervals related to a Dunnett-test for the groups
# B and H against the standard S, on the (single) endpoint Thromb.count,
# assuming unequal variances for the groups. These are the well-known
# Dunnett-intervals but in the presence of heteroscedasticity.
data(coagulation)
interv1 <- SimCiDiff(data=coagulation, grp="Group", resp="Thromb.count", type="Dunnett",
base=3, alternative="greater", covar.equal=FALSE)
interv1
# Example 2:
# Simultaneous confidence intervals related to a Dunnett-test for the groups
# B and H against the standard S, simultaneously on all endpoints, assuming
# unequal covariance matrices for the groups.
data(coagulation)
interv2 <- SimCiDiff(data=coagulation, grp="Group", resp=c("Thromb.count","ADP","TRAP"), type="Dunnett",
base=3, alternative="greater", covar.equal=FALSE)
summary(interv2)Run the code above in your browser using DataLab