# NOT RUN {
dosingInfo <- data.frame( time = 0 , dose = 1)
dataParametersFile <- system.file( "extData",
"examplePkParameters.csv" , package = "microsamplingDesign" )
exampleParameters <- read.csv( dataParametersFile ,
stringsAsFactors = FALSE , na.strings = NULL )
pkModel <- construct2CompModel( exampleParameters , dosingInfo )
plotObject( pkModel , times = seq( 0, 5 , 0.1) , nSamplesIntegration = 12 )
# }
Run the code above in your browser using DataLab