# NOT RUN {
dataset <- dataset02 ## the pilot study
KStar <- length(dataset$NL[1,1,,1])
VarComp <- StSignificanceTesting(dataset, FOM = "Wilcoxon", method = "ORH", option = "RRRC")$varComp
varTR <- VarComp$varTR
cov1 <- VarComp$cov1
cov2 <- VarComp$cov2
cov3 <- VarComp$cov3
varEps <- VarComp$var
ret <- SsPowerGivenJKOrVarComp (J = 5, K = 100, KStar = KStar,
effectSize = 0.05, varTR, cov1, cov2, cov3, varEps, option = "RRRC")
cat("RRRC power = ", ret$powerRRRC)
# }
Run the code above in your browser using DataLab