# \donttest{
design <- setup_cpp(k = 3, p0 = 0.2)
# Equal sample sizes
adjust_lambda(design = design, n = 20, alpha = 0.05,
design_params = list(tune_a = 1, tune_b = 1), iter = 1000)
# Unequal sample sizes
adjust_lambda(design = design, n = c(15, 20, 25), alpha = 0.05,
design_params = list(tune_a = 1, tune_b = 1), iter = 1000)
# }
Run the code above in your browser using DataLab