if (FALSE) {
model <- pkmodel(
parameterization = "Clearance",
numCompartments = 2,
data = pkData,
ID = "Subject",
Time = "Act_Time",
A1 = "Amount",
CObs = "Conc",
workingDir = tempdir()
)
host <- hostParams(sharedDirectory = tempdir(),
parallelMethod = "None",
hostName = "local",
numCores = 1)
job <- fitmodel(model,
numIterations = 3,
hostPlatform = host)
finalModelVPC <- copyModel(model,
acceptAllEffects = TRUE,
modelName = "model_VPC",
workingDir = tempdir())
}
Run the code above in your browser using DataLab