# NOT RUN {
# Setup the prior distributions for the phase I dose-finding model:
control <- list(
beta.dose = parm("normal", mean = 0, var = 1000),
beta.other = parm("normal", mean = 0, var = 1000 ),
gamma = parm("normal", mean = 0, var = 100 ),
s2.gamma = parm("invgamma", shape = 0.001, scale = 0.001),
s2.epsilon = parm("invgamma", shape = 0.001, scale = 0.001)
)
# }
Run the code above in your browser using DataLab