# NOT RUN {
data("posterior")
plot(posterior)
# }
# NOT RUN {
data("pursat")
data("pursat_covariates")
out <- clearanceEstimatorBayes(data = pursat, covariates = pursat_covariates,
niteration = 200, burnin = 50, thin = 10)
plot(out)
# }
Run the code above in your browser using DataLab