- listMod <- as.integer(unlist(strsplit(as.character(indModSel), "[.]")))
- modelSel <- models_list[[listMod[1]]][[listMod[2]]]
- modelSel$tableau <- tableauRecap
-
- if (plot)
- print(plot_valse(X, Y, modelSel, n))
+ if (nrow(tableauRecap) > 10) {
+ 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
+ }
+ listMod <- as.integer(unlist(strsplit(as.character(indModSel), "[.]")))
+ modelSel <- models_list[[listMod[1]]][[listMod[2]]]
+ modelSel$models <- tableauRecap