age min AOD par catégorie pour génération 50 dans fonction salaireSansEqua

On récupère les AOD de la gén 50 dans parametres qu'on utilise pour déterminer un age limite dans fonction salaireSansEqua (fonctionsSupport)

paramAgeLimite <- parametres$ageDuree[ grandeur=="AOD", .(anneeNaissance = extraireAnnee(dateNaissance), valeur, categorie)][ anneeNaissance == min(anneeNaissance)]

ageLimite <- fifelse(grepl("FPE|FPT|Regime special", sousPop), paramAgeLimite[categorie %like% "Superactif", min(valeur)][1], paramAgeLimite[categorie == "Droit commun", min(valeur)][1])