# \donttest{
design <- setupOneStageBasket(k = 3, p0 = 0.2)
opt_design(design = design, n = 10, alpha = 0.05,
weight_fun = weights_fujikawa, weight_params = list(epsilon = c(1, 2),
tau = c(0, 0.5)), scenarios = get_scenarios(design, 0.5), prec_digits = 3)
# }
Run the code above in your browser using DataLab