Set random effects and residual error to zero
zeroRe(object, which = c("omega", "sigma"), fix = TRUE)
object
: The model to modifywhich
: The types of parameters to set to zerofix
: Should the parameters be fixed to the zero value?The object
with some parameters set to zero
one.compartment <- function() { ini({ tka <- log(1.57); label("Ka") tcl <- log(2.72); label("Cl") tv <- log(31.5); label("V") eta.ka ~ 0.6 eta.cl ~ 0.3 eta.v ~ 0.1 add.sd <- 0.7 }) model({ ka <- exp(tka + eta.ka) cl <- exp(tcl + eta.cl) v <- exp(tv + eta.v) d/dt(depot) = -ka * depot d/dt(center) = ka * depot - cl / v * center cp = center / v cp ~ add(add.sd) }) } zeroRe(one.compartment)
Other Initial conditions: ini.rxUi()
Bill Denney
Useful links