In INESSS-QC/admissibilite1: Admissibilité des individus

knitr::opts_chunk$set(echo = TRUE, comment = "#>")
library(data.table)
library(readxl)

Importation du fichier comparatif créé par Mamadou

dt <- as.data.table(read_excel(
  path = "V:/GI-Data/_ADMIS/DIFFRENCE_RPAM2018_QC_VS_RAMQ_MED_etude.XLSX",
  sheet = "DIFFRENCE_RPAM2018_QC_VS_RAMQ_M",
  col_types = "text"
))
dt[is.na(NBRE_JRS_RETENU_QC), NBRE_JRS_RETENU_QC := "0"]
dt[, NBRE_JRS_RETENU_QC := as.integer(NBRE_JRS_RETENU_QC)]
dt[is.na(NBRE_JRS_RETENU_RAMQ), NBRE_JRS_RETENU_RAMQ := "0"]
dt[, NBRE_JRS_RETENU_RAMQ := as.integer(NBRE_JRS_RETENU_RAMQ)]
dt[, AGE := floor(as.numeric(AGE))]

Nombre d'individus unique

uniqueN(dt)

Nombre de jours d'admissibilité différents

nrow(dt[NBRE_JRS_RETENU_QC != NBRE_JRS_RETENU_RAMQ])

Même nombre de jours admissible

nrow(dt[NBRE_JRS_RETENU_QC == NBRE_JRS_RETENU_RAMQ])

Jours supplémentaires PRIOR

nrow(dt[NBRE_JRS_RETENU_QC < NBRE_JRS_RETENU_RAMQ])

Jours supplémentaires QC

nrow(dt[NBRE_JRS_RETENU_QC > NBRE_JRS_RETENU_RAMQ])

Seulement RAMQ

nrow(dt[NBRE_JRS_RETENU_RAMQ != 0 & NBRE_JRS_RETENU_QC == 0])

Seulement Quebec

nrow(dt[NBRE_JRS_RETENU_RAMQ == 0 & NBRE_JRS_RETENU_QC == 365])

dt1 <- dt[NBRE_JRS_RETENU_QC == "365"]
nrow(dt1)
dt1_1 <- dt1[NBRE_JRS_RETENU_RAMQ == "0"]
nrow(dt1_1)
nrow(dt1_1[between(AGE, 65, 95)])

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