if (interactive()) {
model <- Certara.RsNLME::pkmodel(
parameterization = "Clearance",
absorption = "Intravenous",
numCompartments = 2,
data = Certara.RsNLME::pkData,
ID = "Subject",
A1 = "Amount",
Time = "Act_Time",
CObs = "Conc",
modelName = "pk_model")
modelExecutorUI(model)
}
Run the code above in your browser using DataLab