data-prod/Etudes_Cas/Etude_CasA_RQAM.R

In INESSS-QC/admissibilite1: Admissibilité des individus

library(admissibilite1)

list_result <- list()  # où stocker les années
fromAF = 2007L
toAF = 2016L
for(AF in fromAF:toAF){  # pour chaque année d'étude
  DT <- import_struct(  # importation des AF nécessaires
    database = "RQAM",
    DebutEtude = paste0(AF,"-04-01"),
    FinEtude = paste0(AF+1,"-03-31")
  )
  obj1 <- admis_analyse(DT)
  obj2 <- admis_analyse2(obj1)
  list_result[[paste(AF)]] <- list(Obj1 = obj1, Obj2 = obj2)  # sauvegarder résultat dans liste
}
saveRDS(
  list_result,
  paste0(
    "V:/GI-Data/_ADMIS/R data/Etudes_Cas/",
    "EtudeA_RQAM_AFsep",fromAF,"-",toAF,"_",
    Sys.Date(),
    ".rds"
  )
)