as.rxUi | R Documentation |
As rxode2 ui
as.rxUi(x)
## S3 method for class 'rxode2'
as.rxUi(x)
## S3 method for class 'rxode2tos'
as.rxUi(x)
## S3 method for class 'rxModelVars'
as.rxUi(x)
## S3 method for class ''function''
as.rxUi(x)
## S3 method for class 'rxUi'
as.rxUi(x)
## Default S3 method:
as.rxUi(x)
x |
Object to convert to |
rxUi object (or error if it cannot be converted)
Matthew L. Fidler
mod1 <- function() {
ini({
# central
KA=2.94E-01
CL=1.86E+01
V2=4.02E+01
# peripheral
Q=1.05E+01
V3=2.97E+02
# effects
Kin=1
Kout=1
EC50=200
})
model({
C2 <- centr/V2
C3 <- peri/V3
d/dt(depot) <- -KA*depot
d/dt(centr) <- KA*depot - CL*C2 - Q*C2 + Q*C3
d/dt(peri) <- Q*C2 - Q*C3
eff(0) <- 1
d/dt(eff) <- Kin - Kout*(1-C2/(EC50+C2))*eff
})
}
as.rxUi(mod1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.