if (FALSE) {
model <- pkmodel(
parameterization = "Clearance",
numCompartments = 2,
data = pkData,
ID = "Subject",
Time = "Act_Time",
A1 = "Amount",
CObs = "Conc",
workingDir = tempdir()
)
params <- NlmeEngineExtraParams(
method = 3,
numIterations = 1
)
host <- hostParams(
sharedDirectory = tempdir(),
parallelMethod = "None",
hostName = "Local",
numCores = 4
)
profile1 <- ProfileVar(
"tvV",
9.548,
"-2,0,2"
)
profile2 <- ProfileVar(
"tvCl",
0.919,
"-0.5,0,1.5"
)
profiles <- ProfileParameters(
"USE_DELTA",
c(profile1, profile2)
)
job <- profilePertubate(
hostPlatform = host,
params = params,
profiles = profiles,
model = model
)
}
Run the code above in your browser using DataLab