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