Skip to content

Latest commit

 

History

History
39 lines (27 loc) · 688 Bytes

File metadata and controls

39 lines (27 loc) · 688 Bytes

Sequential zero-/first-order absorption

library(mrgsolve)

PK model

  • 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)

Sequential zero-/first-order

  • We make a zero-order infusion into the GUT compartment of 100 units over 33 hours
  • The KA parameter controls the first-order absorption process
mod %>% ev(amt = 100, rate = 3) %>% 
  mrgsim %>% plot