Browse Source

Separate obs and neo

master
Maxime Wack 7 years ago
parent
commit
53975dfd92
3 changed files with 1879 additions and 1110 deletions
  1. +1868
    -0
      CMA_Neo.txt
  2. +6
    -1108
      CMA_Obs.txt
  3. +5
    -2
      cim10.R

+ 1868
- 0
CMA_Neo.txt
File diff suppressed because it is too large
View File


CMA_Obs.txt
File diff suppressed because it is too large
View File


+ 5
- 2
cim10.R View File

@@ -8,8 +8,11 @@ library(magrittr)
read_csv2("cim10.csv") %>%
mutate(famille_libelle = famille_libelle %>% str_replace("\\w\\d+ ", ""),
CMD_libelle = CMD_libelle %>% str_replace("\\d+ ", "")) %>%
left_join(read_csv("CMA_Gyn.txt", col_names = "code") %>%
mutate(gyn = "O"),
left_join(read_csv("CMA_Neo.txt", col_names = "code") %>%
mutate(neo = "N"),
by = c("diag_code" = "code")) %>%
left_join(read_csv("CMA_Obs.txt", col_names = "code") %>%
mutate(obs = "O"),
by = c("diag_code" = "code")) -> cim10

# groupes ----------


Loading…
Cancel
Save