bi_object <- libbi$new(client = "sample",
model = system.file(package="rbi", "PZ.bi"),
options = list(sampler = "smc2"))
## Not run: bi_object$run(options=list(nthreads = 1), verbose = TRUE)
if (bi_object$run_flag) {
bi_file_summary(bi_object$output_file_name)
}
Run the code above in your browser using DataLab