# \donttest{
# Load example GHRmodels object from the package:
model_list_file <- system.file("examples", "model_list.rds", package = "GHRmodel")
model_list <- readRDS(model_list_file)
# Load example GHRmodels object with DLNM from the package:
model_dlnm_file <- system.file("examples", "model_dlnm.rds", package = "GHRmodel")
model_dlnm <- readRDS(model_dlnm_file)
# Merge models from the model_list and model_dlnm objects
model_stack <- stack_models(
model_list,
model_dlnm,
new_name = "mod")
# The combined model_stack combines the models in the model_list and model_dlnm objects
model_stack$mod_gof$model_id
# }
Run the code above in your browser using DataLab