# \donttest{
dat <- pheno_sd
string <- c(1, 0, 0, 0, 0, 0, 0, 0, 0, 1)
param_table <- initialize_param_table()
param_table$init[param_table$Name == "lcl"] <- log(0.008)
param_table$init[param_table$Name == "lvc"] <- log(0.6)
penalty.control = penaltyControl()
penalty.control$penalty.terms = c("rse", "theta", "covariance")
step_compartments(
dat = dat,
search.space = "ivbase",
param_table = param_table,
filename = "step_cmpt_test",
penalty.control = penalty.control,
saem.control = nlmixr2est::saemControl(logLik = TRUE,nBurn=15,nEm=15)
)
# }
Run the code above in your browser using DataLab