design <- setupOneStageBasket(k = 4, shape1 = 1, shape2 = 1, p0 = 0.2)
# Without vectorization, with details
check_mon_between(design = design, n = 24, lambda = 0.99,
weight_fun = weights_fujikawa, weight_params = list(epsilon = 3,
tau = 0), details = TRUE)
# Vectorized
check_mon_between(design = design, n = 24, lambda = 0.99,
weight_fun = weights_fujikawa,
weight_params = list(epsilon = c(0.5, 1), tau = c(0, 0.2, 0.3)),
globalweight_fun = globalweights_fix,
globalweight_params = list(w = c(0.5, 0.7)))
Run the code above in your browser using DataLab