model <- pkmodel(
numCompartments = 2,
data = pkData,
ID = "Subject",
Time = "Act_Time",
A1 = "Amount",
CObs = "Conc",
modelName = "TwCpt_IVBolus_FOCE_ELS",
workingDir = tempdir()
)
model <-
randomEffect(model,
effect = c("nV", "nCl", "nCl2"), value = rep(0.1, 3))
Run the code above in your browser using DataLab