if (interactive()) {
library(Certara.RsNLME)
host <- hostParams(
parallelMethod = "None",
hostName = "local",
numCores = 1
)
model <- pkmodel(
parameterization = "Clearance",
absorption = "Intravenous",
numCompartments = 2,
data = pkData,
ID = "Subject",
A1 = "Amount",
CObs = "Conc",
Time = "Act_Time",
modelName = "pk_model"
)
model <- estimatesUI(model, host)
}
Run the code above in your browser using DataLab