# NOT RUN {
library(vlad)
## Markov Chain
racusum_beta_crit_mc(L0=7500, shape1=.61, shape2=4.09, g0=-3.6798, g1=0.0768*71, RA=2, RQ=1,
r=1e3)
## Monte Carlo simulation
racusum_beta_crit_sim(L0=7500, shape1=.61, shape2=4.09, g0=-3.6798, g1=0.0768, RA = 2, RQ = 1,
rs = 71, verbose=TRUE, m=1e3)
# }
Run the code above in your browser using DataLab