complexity = sumPen, contrast = -LLH)
}))
tableauRecap <- tableauRecap[which(tableauRecap[, 4] != Inf), ]
-
-
+
if (verbose == TRUE)
print(tableauRecap)
modSel <- capushe::capushe(tableauRecap, n)
{
modSel@AIC_capushe$model
}
-
+
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))