data <- pkData
data$II <- 24
data$ADDL <- 1
model <-
pkmodel(
parameterization = "Clearance",
numCompartments = 2,
data = data,
ID = "Subject",
Time = "Act_Time",
A1 = "Amount",
CObs = "Conc",
workingDir = tempdir())
addDoseCycle(
model,
name = "A1",
amount = 30000,
II = 24,
type = "ADDL",
colName = "ADDL")
extraDoseNames(model)
Run the code above in your browser using DataLab