mod = as.character(tableauRecap[indModSel,1])
listMod = as.integer(unlist(strsplit(mod, "[.]")))
modelSel = models_list[[listMod[1]]][[listMod[2]]]
mod = as.character(tableauRecap[indModSel,1])
listMod = as.integer(unlist(strsplit(mod, "[.]")))
modelSel = models_list[[listMod[1]]][[listMod[2]]]