# NOT RUN {
## Assume you want to conduct a single-case study with 15 MTs, using a highly reliable test,
## an expected level effect of \eqn{d = 1.4}, and randomized start points between MTs 5
## and 12 can you expect to identify the effect using plm or randomization test?
design <- design_rSC(
n = 1, phase.design = list(A = 6, B = 9),
rtt = 0.8, level = 1.4
)
res <- power_test(design, n_sim = 10)
## Would you achieve higher power by setting up a MBD with three cases?
design <- design_rSC(
n = 3, phase.design = list(A = 6, B = 9),
rtt = 0.8, level = 1.4
)
res <- power_test(design, n_sim = 10, stat = c("hplm_level", "rand"))
# }
Run the code above in your browser using DataLab