# NOT RUN {
## An example of sample size calculation with DBM variance componements
retDbm <- StSignificanceTesting(data = dataset02,
FOM = "Wilcoxon", method = "DBMH")
effectSize <- retDbm$ciDiffTrtRRRC$Estimate
varCompDBM <- retDbm$varComp
varYTR <- varCompDBM$varComp[3]
varYTC <- varCompDBM$varComp[4]
varYEps <- varCompDBM$varComp[6]
## should give close to 80% power for RRRC
SsPowerGivenJK(6, 251, effectSize, "DBMH", varYTR = varYTR, varYTC = varYTC,
varYEps = varYEps)
## An example of sample size calculation with OR variance componements.
retOR <- StSignificanceTesting(data = dataset02,
FOM = "Wilcoxon", covEstMethod = "Jackknife", method = "ORH")
effectSize <- retOR$ciDiffTrtRRRC$Estimate
varCompOR <- retOR$varComp
varTR <- varCompOR$varCov[2]
cov1 <- varCompOR$varCov[3]
cov2 <- varCompOR$varCov[4]
cov3 <- varCompOR$varCov[5]
varEps <- varCompOR$varCov[6]
KStar <- length(dataset02$NL[1,1,,1])
## same sample size as above, different method, should again give close to 80% power for RRRC
SsPowerGivenJK(6, 251, effectSize, "ORH", cov1 = cov1, cov2 = cov2, cov3 = cov3,
varEps = varEps, varTR = varTR, KStar = KStar)
# }
Run the code above in your browser using DataLab