if (FALSE) {
model <- pkmodel(
parameterization = "Clearance",
numCompartments = 2,
data = pkData,
ID = "Subject",
Time = "Act_Time",
A1 = "Amount",
CObs = "Conc",
workingDir = tempdir()
)
# Define the host
host <- hostParams(parallelMethod = "NONE",
hostName = "local",
numCores = 1,
sharedDirectory = tempdir())
job <- fitmodel(model,
hostPlatform = host)
# View estimation results
print(job)
finalModelVPC <- copyModel(model,
acceptAllEffects = TRUE,
modelName = "model_VPC",
workingDir = tempdir())
# View the model
print(finalModelVPC)
# Set up VPC arguments to have PRED outputted to simulation output dataset "predout.csv"
vpcSetup <- NlmeVpcParams(outputPRED = TRUE)
# Run VPC using the default host, default values for the relevant NLME engine arguments
finalVPCJob <-
vpcmodel(model = finalModelVPC, vpcParams = vpcSetup, )
}
Run the code above in your browser using DataLab