## 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,
OncoBayes2.MC.save_warmup = FALSE
)
library(tibble)
dose_info_A <- tibble(
group_id = "hist_A",
drug_A = 1
)
dose_info_B <- tibble(
group_id = "hist_B",
drug_B = 100 * (1:2)
)
bind_rows_0(dose_info_A, dose_info_B)
## Recover user set sampling defaults
options(.user_mc_options)
Run the code above in your browser using DataLab