Nothing
mod_1cmt_iv <- new_ode_model("pk_1cmt_iv")
mod_2cmt_iv <- new_ode_model("pk_2cmt_iv")
mod_1cmt_oral <- new_ode_model("pk_1cmt_oral")
oral_1cmt_allometric <- new_ode_model(
code = "
CLi = CL * pow(WT/70, 0.75)
dAdt[1] = -KA * A[1]
dAdt[2] = KA*A[1] - (CLi/V)*A[2]
",
dose = list(cmt = 1, bioav = 1),
covariates = list(WT = new_covariate(50)),
declare_variables = "CLi",
parameters = list(KA = 0.5, CL = 5, V = 50)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.