# \donttest{
# Example: run a simple nlmixr2 model
pheno <- function() {
ini({
tcl <- log(0.008) # typical clearance
tv <- log(0.6) # typical volume
eta.cl + eta.v ~ c(1,
0.01, 1) # interindividual variability
add.err <- 0.1 # residual variability
})
model({
cl <- exp(tcl + eta.cl)
v <- exp(tv + eta.v)
ke <- cl / v
d/dt(A1) = -ke * A1
cp = A1 / v
cp ~ add(add.err)
})
}
run_model_in_subprocess(
modi = 1,
dat = pheno_sd,
f = pheno,
saem.control = nlmixr2est::saemControl(
seed = 1234,
nBurn = 100,
nEm = 100,
logLik = TRUE
)
)
# }
Run the code above in your browser using DataLab