In INESSS-QC/admissibilite1: Admissibilité des individus

knitr::opts_chunk$set(echo = TRUE)
library(data.table)
library(lubridate)

DT <- readRDS("V:/GI-Data/_ADMIS/cohorte_admis_med_2019-10-03.rds")  # importation
DT[  # Indiquer l'age des gens au 2019-03-31
  , Age := floor(  # arrondir à l'entier inférieur
    as.numeric(difftime(Date_Fin_Extraction, DDN, units = "weeks") / 52.1429)  # 52.1429 semaines par année
  )
]
DT[  # considérer la date de décès s'il y en a une
  !is.na(DDC),
  Age := floor(as.numeric(difftime(DDC, DDN, units = "weeks") / 52.1429))
]

INESSS-QC/admissibilite1 documentation built on Aug. 7, 2020, 9:39 a.m.