design <- setup_bhm(k = 3, p0 = 0.2, p_target = 0.5)
# \donttest{
# Equal sample sizes
get_details(design = design, n = 20, p1 = c(0.2, 0.5, 0.5),
lambda = 0.95, tau_scale = 1, iter = 100)
# Unequal sample sizes
get_details(design = design, n = c(15, 20, 25), p1 = c(0.2, 0.5, 0.5),
lambda = 0.95, tau_scale = 1, iter = 100)
# }
Run the code above in your browser using DataLab