if (FALSE) {
# Build a PK model for the warfarin PK data.
# By default, only models using clearance (and inter compartmental clearances) are used
warf.pk1 <- pkbuild(data=warfarin)
# Models using elimination and transfer rate constants are used,
# as well as nonlinear elimination models
warf.pk2 <- pkbuild(data=warfarin, new.dir="warfarin", param="rate", MM=TRUE)
# Both models using clearances and rates are used.
# Level is set to 7 in order to get accurate results.
warf.pk3 <- pkbuild(data=warfarin, new.dir="warfarin", param="both", level=7)
}
Run the code above in your browser using DataLab