# \donttest{
pkData1 <- pkData
pkData1$ii <- 0
pkData1$addl <- 0
model <- pkmodel(numComp = 2,
absorption = "FirstOrder",
ID = "Subject",
Time = "Act_Time",
CObs = "Conc",
Aa = "Amount",
data = pkData1,
modelName = "PkModel",
workingDir = tempdir())
model <- addADDL(model, ADDL = "addl", II = "ii")
# }
Run the code above in your browser using DataLab