# NOT RUN {
bin.ma.rct.unbal <- cps.ma.binary(nsim = 3,
nsubjects = list(rep(200, times=15),
rep(150, times=15),
rep(170, times=15)),
narms = 3,
nclusters = 15,
probs = c(0.15, 0.23, 0.22),
sigma_b_sq = c(0.1, 0.1, 0.1),
alpha = 0.05, allSimData = TRUE,
seed = 123, cores="all")
binCalcICC(data = bin.ma.rct.unbal, nsim = 1000)
# }
# NOT RUN {
# }
# NOT RUN {
binary.sim = cps.binary(nsim = 100, nsubjects = 20,
nclusters = 10, p1 = 0.8,
p2 = 0.5, sigma_b_sq = 1,
sigma_b_sq2 = 1.2, alpha = 0.05,
method = 'glmm', allSimData = TRUE)
binCalcICC(data = binary.sim, nsim = 1000)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab