## ----load-lib, echo=FALSE-----------------------------------------------------
library(PKPDsim)

## ----export-example, eval = FALSE---------------------------------------------
# p <- list(CL = 5, V = 50)
# reg <- new_regimen(amt = 100, n = 4, interval = 12, type = "bolus",  cmt = 1)
# 
# new_ode_model(
#   code = "
#     dAdt[1] = -(CL/V) * A[1]
#   ",
#   dose = list(cmt = 1, bioav = 1),
#   obs = list(cmt = 1, scale = "V"),
#   parameters = p,
#   package = "pktest",
#   install = TRUE
# )

## ----load-library, eval=F-----------------------------------------------------
# library(pktest)
# mod <- pktest::model()

## ----simulate, eval=F---------------------------------------------------------
# sim(
#   ode = mod,
#   parameters = p,
#   regimen = reg
# )