tests/Deces-preliminaire/Cohorte_date-index.R

In INESSS-QC/admissibilite1: Admissibilité des individus

#### Liste des ID qui sont admis en continue sur l'étude selon une date index (fin) et X
#### années avant cette date (début).
#### Exemple : date index = 31 mars 2019, si X = 1 -> [1 avril 2018, 31 mars 2019]
####                                         X = 2 -> [1 avril 2017, 31 mars 2019]

library(admissibilite1)
library(data.table)
library(lubridate)
# select_data = "RPAM"
# date_idx = "2019-03-31"
# nbrAn_av = 1

tab_result <- list()
for(select_data in c("RPAM", "RQAM")){  # sélection du type de données
  for(date_idx in paste0(seq(2019, 2004, -5),"-03-31")){  # dates index
    for(nbrAn_av in 1:5){  # X années avant la date index
      DT <- import_struct(  # importation des années financières nécessaires
        database = select_data,
        DebutEtude = as_date(date_idx) - years(nbrAn_av) + 1,  # 1er avril
        FinEtude = date_idx
      )
      IDs <- sunique(admis_analyse(DT)[Admis_Continue_Etude == TRUE]$ID)
      tab_result[[select_data]][[date_idx]][[paste(nbrAn_av)]] <- IDs
      cat("\n", paste(c(select_data, date_idx, nbrAn_av), collapse = "/"), "terminé\n")
    }
  }
}
saveRDS(tab_result, paste0("V:/GI-Data/_ADMIS/Décès/Résultats préliminaires/Cohortes_RPAM-RQAM_ContinueEtude_",Sys.Date(),".rds"))