if (FALSE) {
# Define the model
model <- pkmodel(numComp = 1,
absorption = "Intravenous",
ID = "Subject",
Time = "Act_Time",
CObs = "Conc",
A1 = "Amount",
data = pkData,
modelName = "PkModel",
workingDir = tempdir())
# Fit model
res <- fitmodel(model = model,
hostPlatform = hostParams(sharedDirectory = tempdir()))
model <- acceptAllEffects(model)
}
Run the code above in your browser using DataLab