# NOT RUN {
## Setting up dummy sampling for fast execution of example
## Please use 4 chains and 100x more warmup & iter in practice
.user_mc_options <- options(OncoBayes2.MC.warmup=10, OncoBayes2.MC.iter=20, OncoBayes2.MC.chains=1)
example_model("single_agent")
library(tibble)
new_cohort <- tibble(group_id="trial_A", drug_A=50, num_patients=4, num_toxicities=1)
## this would fail, since add_data argument must be named
## new_blrmfit <- update(blrmfit, new_cohort)
new_blrmfit <- update(blrmfit, add_data=new_cohort)
## Recover user set sampling defaults
options(.user_mc_options)
# }
Run the code above in your browser using DataLab