# 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")
## obtain underdosing (0-0.16), target dosing (0.16-0.33) and
## overdosing (0.33-1) probabilities
summary(blrmfit, interval_prob=c(0,0.16,0.33,1))
## Recover user set sampling defaults
options(.user_mc_options)
# }
Run the code above in your browser using DataLab