# \donttest{
scenarios <- list(
list(name = "Scenario 1", p_true = c(0.05, 0.10, 0.20, 0.30, 0.45)),
list(name = "Scenario 2", p_true = c(0.10, 0.15, 0.30, 0.45, 0.60))
)
# Silent mode (default)
result <- sim_boin_multi(
scenarios = scenarios,
target = 0.30,
n_trials = 10000,
n_cohort = 48,
cohort_size = 3,
seed = 123
)
# With progress messages
result_verbose <- sim_boin_multi(
scenarios = scenarios,
target = 0.30,
n_trials = 10000,
n_cohort = 48,
cohort_size = 3,
verbose = TRUE,
seed = 123
)
# }
Run the code above in your browser using DataLab