PMLParametersSets <- create_ModelPK(CompartmentsNumber = c(1, 2))
# Modify a Theta parameter named "tvV" with new Initial Estimates and
# Frozen flag
PMLParametersSetsMod1 <-
modify_Theta(PMLParametersSets,
Name = "tvV",
Frozen = TRUE,
InitialEstimates = 0.3)
print(PMLParametersSetsMod1)
PMLParametersSetsMod2 <-
add_StParm(PMLParametersSets = PMLParametersSetsMod1,
StParmName = "Duration",
State = "Searched",
PMLStructures = "PK2IVC",
DosepointArgName = "duration")
PMLParametersSetsMod3 <-
modify_Theta(PMLParametersSets = PMLParametersSetsMod2,
Name = "tvDuration",
InitialEstimates = c(2, 4, Inf))
print(PMLParametersSetsMod3)
Run the code above in your browser using DataLab