+ 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
+
+ if (plot) plot_valse(X, Y, modelSel)
+ return(modelSel)
+ }
+ tableauRecap