PMLParametersSets <-
create_ModelPK(CompartmentsNumber = c(1, 2, 3),
Absorption = c("First-Order"))
# modify dosepoint
PMLParametersSets <-
modify_Dosepoint(PMLParametersSets,
DosepointName = "Aa",
tlag = StParm(StParmName = "Tlag",
State = "Present"),
bioavail = StParm(StParmName = "F",
State = "Present"))
# add dosepoint
PMLParametersSets <-
add_Dosepoint(PMLParametersSets,
DosepointName = "A1",
bioavail = Expression("1 - F"),
duration = Expression("Tlag"))
Run the code above in your browser using DataLab