# NOT RUN {
m <- model() +
input_variable("dose") +
prm_log_normal("emax", median = 10, var_log = 0.09) +
prm_log_normal("ed50", median = 50, var_log = 0.09) +
algebraic(effect~emax*dose/(ed50 + dose)) +
obs_proportional(~effect, var_prop = 1)
# output all model parameter and eta variables
render(m, tasks = tsk_output("prms", variables = vars_prms() | vars_eta()))
# }
Run the code above in your browser using DataLab