# NOT RUN {
n <- seq(20, 145, 5)
out <- bayes_adcock(n = n, d = 0.20, mu_beta_a = 0.64, mu_beta_d = 0.9,
n_a = 20, n_d = 10, sig_sq = 0.265,
alpha = 0.05, mc_iter = 1000)
head(out$assurance_table)
out$assurance_plot
# }
Run the code above in your browser using DataLab