# NOT RUN {
nvec <- seq(0, 10, 1)
Rvec <- seq(0.8, 0.85, 0.01)
cvec <- seq(0, 2, 1)
pi <- pi_MCSim_beta(M = 5000, seed = 10, a = 1, b = 1)
bdata_generator(Cf = 10, Cv = 10, nvec = nvec, G = 10000, Cw = 10,
N = 100, Rvec = Rvec, cvec = cvec, pi = pi,
par = c('n', 'R', 'c', 'CR', 'AP'), option = c("optimal"), thres_CR = 0.05)
# }
Run the code above in your browser using DataLab