example_run <- rbi::bi_read(
system.file(package = "rbi.helpers", "example_run.nc")
)
example_model_file <- system.file(package = "rbi", "PZ.bi")
example_bi <- rbi::attach_data(
rbi::libbi(example_model_file), "output", example_run
)
acceptance_rate(example_bi)
Run the code above in your browser using DataLab