# \donttest{
dat <- pheno_sd
# Example best model binary code
current_code <- c(1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0)
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)
# Run local search
result_local <- runlocal(
dat = dat,
search.space = "ivbase",
start.string = current_code,
filename = "local_search_test",
saem.control = nlmixr2est::saemControl(logLik = TRUE,nBurn=15,nEm=15)
)
print(result_local)
# }
Run the code above in your browser using DataLab