library(mrgsolve)- One-compartment, with absorption / depot compartment (
GUT)
code <- '
$PARAM CL = 1, V = 20, KA = 1.1
$PKMODEL cmt = "GUT CENT", depot = TRUE
'mod <- mcode("sequential", code) %>% update(end = 120, delta = 0.1)- We make a zero-order infusion into the
GUTcompartment of 100 units over 33 hours - The
KAparameter controls the first-order absorption process
mod %>% ev(amt = 100, rate = 3) %>%
mrgsim %>% plot