design = brada(Nmax = 40, batchsize = 5, nInit = 10,
p_true = 0.2 , p0 = 0.2, p1 = 0.2,
nsim = 100,
a0 = 1, b0 = 1,
theta_T = 0.90, theta_L = 0.1, theta_U = 1,
method = "PP",
cores = 2)
plot(design)
Run the code above in your browser using DataLab