# Using StParm objects
TlagStParm <- StParm("Tlag",
Type = "LogNormal",
ThetaStParm = Theta(Name = "tvTlag", InitialEstimates = 0.1))
FStParm <- StParm("F", ThetaStParm = Theta(Name = "tvF")) # Assuming Theta exists
dp1 <- Dosepoint(DosepointName = "GutInput",
State = "Present",
tlag = TlagStParm,
bioavail = FStParm)
# Using Expression objects
dp2 <- Dosepoint(DosepointName = "Infusion",
rate = Expression("RateVal",
ContainedStParms =
list(StParm("RateVal",
ThetaStParm = Theta("tvRateVal")))))
# Using a character string (will be converted to Expression internally)
dp3 <- Dosepoint(DosepointName = "Bolus",
bioavail = "SystemicF") # Converted to Expression("SystemicF")
Run the code above in your browser using DataLab