# \donttest{
dat <- pheno_sd
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")
# Initialize start.mod with a base model
start.mod <- base_model("ivbase")
step_elimination(
dat = dat,
start.mod = start.mod,
search.space = "ivbase",
param_table = param_table,
filename = "step_elim_test",
penalty.control = penalty.control,
saem.control = nlmixr2est::saemControl(logLik = TRUE,nBurn=15,nEm=15)
)
# }
Run the code above in your browser using DataLab