# NOT RUN {
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)
boptimal_cost(Cf = 10, Cv = 10, G = 100, Cw = 10,
N = 100, Rvec = Rvec, cvec = cvec, pi = pi, thres_CR = 0.5);
# }
Run the code above in your browser using DataLab