# Example 1 (iv case)
dat <- Bolus_1CPT
dat <- processData(dat)$dat
run_graphcal(dat, route="bolus")
# Example 2 (oral case)
dat <- Oral_1CPT
dat <- processData(dat)$dat
run_graphcal(dat, route="oral")
# Example 3 (infusion case).
# Approximate calculation. only use when the infusion duration is very short
dat <- Infusion_1CPT
dat <- processData(dat)$dat
run_graphcal(dat, route="infusion")
Run the code above in your browser using DataLab