codes/3_merge_results.R

setwd("V:/GI-Data/_MedPersAg/HISTORIQUE_ADMISS_CODE_R/Construction Admin")
library(data.table)
admin <- readRDS("admin_combinaisons.rds")
njours <- readRDS("admin_njours.rds")

admin <- merge(admin, njours,
               by = c("id", "an"),  # colonnes critères
               all.x = TRUE)  # conserver seulement les lignes de admin_initial parce que date_to_an a les ans de 1970 à 2018, mais analyse de 1973 à 2018
setorder(admin, id, an)

#### SAVE ####
saveRDS(admin, "admin_final.rds")
INESSSQC/INESSS documentation built on May 4, 2019, 4:14 a.m.