library(tdmore)
nlmixr::nlmixrUI(function(){
ini({
TVKA <- 3.7
TVV1 <- 61
TVQ <- 10
TVCL <- 3.7
ECL ~ 0.0784 #ETA1, 28%
EV1 ~ 0.0361 #ETA2, 19%
EPS_PROP <- 0.23 # Proportional error, 23% SD
})
model({
KA <- TVKA
CL <- TVCL * (WT/70)^0.75 * exp(ECL)
V1 <- TVV1 * exp(EV1)
V2 <- V1
Q <- TVQ
K12 <- Q/V1
K21 <- Q/V2
d/dt(depot) = -KA*depot
d/dt(center) = KA*depot - CL/V1 * center - K12*center + K21 * periph
d/dt(periph) = K12*center - K21 * periph
CONC = center / V1
CONC ~ prop(EPS_PROP)
})
}) %>%
tdmore() %>%
metadata(covariate(name="WT", label="Weight", unit="kg", min=15, max=300)) %>%
metadata(output(name="CONC", label="Concentration", unit="mg/L")) %>%
metadata(formulation(name="Drug", unit="mg", dosing_interval=8, default_value=5, round_function=function(x){round(x*2)/2})) %>%
metadata(target(min=12, max=20))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.