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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.