tests/tests-datas/ID_avec_23obs.R

In INESSS-QC/admissibilite1: Admissibilité des individus

### PROBLÈME RÉSOLU
###
### Problème lors de la combinaison des dates qui se chevauchaient pour un même ID et un même type
### d'admissibilité. C'était considéré comme la même période alors on se retrouvait avec
### 4 observations au lieu de 23 pour l'exemple ci-haut.
###
### Code ajouté :
### period := cumsum(period) + 1L, .(ID, Admis)

# ------------------------------------------------------------------------------------------------


library(admissibilite1)
library(data.table)
library(readxl)
library(lubridate)
DT <- as.data.table(read_excel("tests/tests-datas/ID_avec_23obs.xlsx"))
DT[
  , `:=` (DDN = as_date(DDN),
          DDP = as_date(DDP),
          DFP = as_date(DFP),
          PER_ADMIS = as.logical(PER_ADMIS),
          DDsld = NA)
]
.data = copy(DT)  # dataset d'analyse
data_cols = list(
  ID = "ID",
  DateNais = "DDN",
  DateDeces = "DDC",
  DebutAdmis = "DDP",
  FinAdmis = "DFP",
  Admis = "PER_ADMIS",
  DateSLD = "DDsld"
)
Debut = "2001-04-01"
Fin = "2019-03-31"