if (FALSE) {
# Non-TITE example:
fit1 <- stan_nbg('1NNN 2NNN 3TTT', real_doses = c(10, 20, 50, 100, 200),
d_star = 200, target = 0.25,
alpha_mean = -1, alpha_sd = 2,
beta_mean = 0, beta_sd = 1,
seed = 123)
fit1$recommended_dose
# The seed is passed to the Stan sampler. The usual Stan sampler params like
# cores, iter, chains etc are passed on too via the ellipsis operator.
# TITE-CRM example
fit2 <-stan_nbg(real_doses = c(10, 20, 50, 100, 200), d_star = 200,
target = 0.25,
doses_given = c(3, 3, 3, 3),
tox = c(0, 0, 0, 0),
weights = c(73, 66, 35, 28) / 126,
alpha_mean = -1, alpha_sd = 2,
beta_mean = 0, beta_sd = 1,
seed = 123)
fit2$recommended_dose
}
Run the code above in your browser using DataLab