pk_model: Example PK Model for Sensitivity Analysis
Description
The example test model is Flip-flop kinetics (FFPK). The time-dependent concentration can be written as:
$$C(t) = \frac{F \cdot D \cdot k_a}{(k_a-k_e)V} (e^{-k_et}-e^{-k_at})$$
where \(F\) is the fraction or percentage of the administrated dose that can reach the general circulation,
\(k_a\) is the first-order absorption rate constant (/time),
\(k_e\) is the first-order elimination rate constant (/time), and \(V\) is the distribution volume.
# NOT RUN {params <- c(F = 0.9, KA = 1.2, KE = 0.2, V = 1.5)
t <- seq(0, 12, 0.1)
C <-FFPK(params = params, time = t)
plot(t, C, type = "l", xlab = "time", ylab = "concentration")
# }