|
@@ -9,12 +9,13 @@ library(stringr) |
|
|
library(lubridate) |
|
|
library(lubridate) |
|
|
|
|
|
|
|
|
# Lecture fichier de GHM ---- |
|
|
# Lecture fichier de GHM ---- |
|
|
read_csv("ghm.csv", col_types = cols(IPP = col_character())) %>% |
|
|
|
|
|
|
|
|
read_csv("ghm.csv", col_types = cols(.default = col_character())) %>% |
|
|
`names<-`(c("IPP", "IEP", "Age", "Sexe", "Codepos", "GHM", "date_entree", "date_sortie")) %>% |
|
|
`names<-`(c("IPP", "IEP", "Age", "Sexe", "Codepos", "GHM", "date_entree", "date_sortie")) %>% |
|
|
mutate(date_entree = date_entree %>% as.Date(format = "%Y/%m/%d"), |
|
|
mutate(date_entree = date_entree %>% as.Date(format = "%Y/%m/%d"), |
|
|
date_sortie = date_sortie %>% as.Date(format = "%Y/%m/%d"), |
|
|
date_sortie = date_sortie %>% as.Date(format = "%Y/%m/%d"), |
|
|
DS = as.numeric(date_sortie - date_entree), |
|
|
DS = as.numeric(date_sortie - date_entree), |
|
|
Sexe = Sexe %>% factor(labels = c("Homme", "Femme"))) -> GHM |
|
|
|
|
|
|
|
|
Age = as.numeric(Age), |
|
|
|
|
|
Sexe = Sexe %>% factor(levels = c("1", "2"), labels = c("Homme", "Femme"))) -> GHM |
|
|
|
|
|
|
|
|
# Lecture labels racines de GHM et garder celles existantes ---- |
|
|
# Lecture labels racines de GHM et garder celles existantes ---- |
|
|
read_csv("racinesGHM.csv") %>% |
|
|
read_csv("racinesGHM.csv") %>% |
|
|