# \donttest{
TempDir <- tempdir()
model <- emaxmodel(
checkBaseline = TRUE,
checkFractional = TRUE,
checkInhibitory = TRUE,
data = pkpdData,
ID = "ID",
C = "CObs",
EObs = "EObs",
modelName = "model",
workingDir = TempDir
)
saveModel(model)
loadModel(TempDir)
# }
Run the code above in your browser using DataLab