PMLParametersSets <-
get_PMLParametersSets(CompartmentsNumber = c(1, 2, 3),
Absorption = c("First-Order"))
# add dosepoint
PMLParametersSets <-
add_Dosepoint(PMLParametersSets,
DosepointName = "A1",
bioavail = Expression("1 - Fa"),
duration = Expression("Tlag",
ContainedStParms = list(StParm("Tlag"))))
Run the code above in your browser using DataLab