- modSel <- capushe::capushe(tableauRecap, n)
- indModSel <- if (selecMod == "DDSE")
- {
- as.numeric(modSel@DDSE@model)
- } else if (selecMod == "Djump")
- {
- as.numeric(modSel@Djump@model)
- } else if (selecMod == "BIC")
- {
- modSel@BIC_capushe$model
- } else if (selecMod == "AIC")
- {
- modSel@AIC_capushe$model
- }
-
-
- mod <- as.character(tableauRecap[indModSel, 1])
- listMod <- as.integer(unlist(strsplit(mod, "[.]")))
- modelSel <- models_list[[listMod[1]]][[listMod[2]]]