data.frame(model=paste(i,".",seq_along(models),sep=""),
pen=sumPen/n, complexity=sumPen, contrast=LLH)
} ) )
-print(tableauRecap)
+
modSel = capushe::capushe(tableauRecap, n)
indModSel <-
if (selecMod == 'DDSE')
mod = as.character(tableauRecap[indModSel,1])
listMod = as.integer(unlist(strsplit(mod, "[.]")))
if (plot){
- print(plot_valse())
+ print(plot_valse(models_list[[listMod[1]]][[listMod[2]]],n))
}
models_list[[listMod[1]]][[listMod[2]]]