- 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]]]
-
- ## Affectations
- Gam <- matrix(0, ncol = length(modelSel$pi), nrow = n)
- for (i in 1:n)