data-prod/Etudes_Cas/Etude_CasA_RPAM.R

In INESSS-QC/admissibilite1: Admissibilité des individus

library(admissibilite1)

fromAF = 2007L
toAF = 2016L
list_result <- list()
for(AF in fromAF:toAF){
  DT <- import_struct(
    database = "RPAM",
    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)
}
saveRDS(
  list_result,
  paste0(
    "V:/GI-Data/_ADMIS/R data/Etudes_Cas/",
    "EtudeA_RPAM_AFsep",fromAF,"-",toAF,"_",
    Sys.Date(),
    ".rds"
  )
)