design <- setup_exnex(k = 3, p0 = 0.2)
# \donttest{
# Equal sample sizes
adjust_lambda(design = design, n = 15,
design_params = list(tau_scale = 1, w = 0.5),
iter = 100, n_mcmc = 5000)
# Unequal sample sizes
adjust_lambda(design = design, n = c(15, 20, 25),
design_params = list(tau_scale = 1, w = 0.5),
iter = 100, n_mcmc = 5000)
# }
Run the code above in your browser using DataLab