TlagStParm <- StParm("Tlag",
Type = "LogNormal",
ThetaStParm = Theta(Name = "tvTlag",
InitialEstimates = 0.1))
A1 <- Dosepoint(DosepointName = "A1",
State = "Present",
tlag = TlagStParm,
bioavail = StParm("F"))
Run the code above in your browser using DataLab