In INESSS-QC/admissibilite1: Admissibilité des individus

knitr::opts_chunk$set(echo = TRUE, comment = "#>", message = FALSE, warning = FALSE)
library(admissibilite1)
options(width = 103,
        scipen = 999)

t1 <- Sys.time()  # pour indiquer temps processus
dt_struct <- import_struct(  # importation des AF nécessaires + structure du dataset
  "V:/GI-Data/_ADMIS/R data/AssuMaladie",  # répertoire des datasets
  DebutEtude = "2001-04-01",  # date de début d'étude
  FinEtude = "2019-03-31"  # date de fin d'étude
)

saveRDS(dt_struct, "V:/GI-Data/_ADMIS/tests-fcts/Bilan/dt_struct.rds")  # sauvegarder le dataset

dt_admis <- admis_analyse(dt_struct)  # obj1 : table de la cohorte d'étude
dt_bilan <- admis_analyse2(dt_admis)  # obj2 : bilan d'admissibilité
t2 <- Sys.time()
difftime(t2, t1)  # indiquer temps processus

print(dt_bilan)

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