# NOT RUN {
## the following two should give identical results
SsPowerGivenJK(dataset02, FOM = "Wilcoxon", effectSize = 0.05, J = 6, K = 251, method = "DBMH")
a <- UtilVarComponentsDBM(dataset02, FOM = "Wilcoxon")$varComp
SsPowerGivenJK(dataset = NULL, J = 6, K = 251, effectSize = 0.05, method = "DBMH",
list(varYTR = a$varTR, varYTC = a$varTC, varYEps = a$varErr))
## the following two should give identical results
SsPowerGivenJK(dataset02, FOM = "Wilcoxon", effectSize = 0.05, J = 6, K = 251, method = "ORH")
a <- UtilVarComponentsOR(dataset02, FOM = "Wilcoxon")$varComp
KStar <- length(dataset02$NL[1,1,,1])
SsPowerGivenJK(dataset = NULL, effectSize = 0.05, J = 6, K = 251, method = "ORH",
list(KStar = KStar, varTR = a$varTR, cov1 = a$cov1, cov2 = a$cov2,
cov3 = a$cov3, varEps = a$var))
# }
Run the code above in your browser using DataLab