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.95, theta_L = 0.05, theta_U = 0.975,
method = "PP",
cores = 2)
monitor(design, obs = c(0,1,1,0,0,1,0,1,1,1))
Run the code above in your browser using DataLab