# NOT RUN {
pkModel <- getExamplePkModel()
parameters <- getParameters( pkModel )
testParameters <- parameters[ , "value"]
names(testParameters) <- parameters[ , "parameter"]
time <- seq( 0 , 3 , 0.1 )
dosingInfo <- data.frame( time = c( 0 , 1 , 2) ,
dose = c( 5 , 2 , 1.5 ) )
get2ComptModelCurve( parameters = testParameters , time , dosingInfo )
get2ComptModelCurve( parameters = testParameters, time ,
dosingInfo , returnAll = TRUE )
# }
Run the code above in your browser using DataLab