if (FALSE) {
# Define the host
host <- hostParams(sharedDirectory = tempdir(),
parallelMethod = "None",
hostName = "local",
numCores = 1)
# Define the model
model <- pkmodel(numComp = 2,
absorption = "FirstOrder",
ID = "Subject",
Time = "Act_Time",
CObs = "Conc",
Aa = "Amount",
data = pkData,
modelName = "PkModel",
workingDir = tempdir())
Table01 <- tableParams(name = "SimTableObs.csv",
timesList = "0,1,2,4,4.9,55.1,56,57,59,60",
variablesList = "C, CObs",
timeAfterDose = FALSE,
forSimulation = FALSE)
# Update fixed effects
model <- fixedEffect(model,
effect = c("tvV", "tvCl", "tvV2", "tvCl2"),
value = c(16, 41, 7, 14))
# Define the engine parameters
params <- engineParams(model)
# Fit model
res <- fitmodel(model = model,
hostPlatform = host,
params = params,
simpleTables = Table01)
}
Run the code above in your browser using DataLab