# NOT RUN {
dat <- list(
num_doses = 5,
skeleton = c(0.05, 0.12, 0.25, 0.40, 0.55),
target = 0.25,
beta_sd = sqrt(1.34),
num_patients = 3,
doses = c(1, 2, 3),
tox = c(0, 0, 1)
)
samp <- rstan::sampling(stanmodels$CrmEmpiricNormalPrior,
data = dat, seed = 123)
decision <- crm_process(dat, samp)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab