# Example for a basket trial with Fujikawa's Design
design <- setup_fujikawa(k = 3, p0 = 0.2)
adjust_lambda(design = design, n = 20, alpha = 0.05,
design_params = list(epsilon = 2, tau = 0), iter = 1000)
Run the code above in your browser using DataLab