# NOT RUN {
VarComp <- StSignificanceTesting(dataset02, FOM = "Wilcoxon", method = "DBMH",
option = "RRRC")$varComp
varYTR <- VarComp$varTR
varYTC <- VarComp$varTC
varYEps <- VarComp$varErr
ret <- SsPowerGivenJKDbmVarComp (J = 5, K = 100, effectSize = 0.05, varYTR,
varYTC, varYEps, option = "RRRC")
cat("RRRC power = ", ret$powerRRRC)
# }
Run the code above in your browser using DataLab