tests/tests-verifs/Verif-conditions-1-1.R

In INESSS-QC/admissibilite1: Admissibilité des individus

### À partir des ID incohérents de `Verif-conditions-1.R`, vérifier les périodes d'admissibilité et
### d'inadmissibilité de ces ID. Expliquera peut-être pourquoi une date de SLD est après une date
### d'entrée.
library(data.table)
library(admissibilite1)

DT <- readRDS("V:/GI-Data/_ADMIS/cohorte_admis_med_2019-10-03.rds")  # data
# Vecteur des ID à vérifier
IDs <- readRDS("V:/GI-Data/_ADMIS/R data/AssuMedicament/AF2018_dataExtract2019-10-03_2019-11-14.rds")
DDetude <- as.Date("2018-04-01"); DFetude <- as.Date("2019-03-31")
IDs <- admis_analyse(IDs)  # créer table cohorte
IDs <- IDs[(Dentree > DDsld & DDetude <= DDsld & DDsld <= DFetude)]$ID  # vecteur ID incohérent
DT <- DT[ID %in% IDs]