# NOT RUN {
# model with depot and central compartment
m <- model() +
compartment("depot", volume = 1) +
compartment("central", volume = "vc") +
flow(~ka*A, from = "depot", to = "central") +
flow(~cl*C, from = "central") +
prm_log_normal("ka") +
prm_log_normal("cl") +
prm_log_normal("vc") +
obs_additive(conc~C["central"])
render(
model = m,
options = assemblerr_options(
ode.use_special_advans = FALSE,
ode.use_general_linear_advans = FALSE
)
)
# }
Run the code above in your browser using DataLab