# NOT RUN {
# This model is presented in Thall et al. (2014)
mod1 <- stan_crm('1N 2N 3T', skeleton = c(0.1, 0.2, 0.35, 0.6),
target = 0.2, model = 'empiric', beta_sd = sqrt(1.34),
seed = 123)
# Shorthand for the above is:
mod2 <- stan_efftox_demo('1N 2E 3B', seed = 123)
# 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.
# }
Run the code above in your browser using DataLab