|
|
@@ -159,7 +159,7 @@ exhau[exhau$mois == mois,]$manq <- gam %>% nrow |
|
|
|
save(exhau, file = "exhau.Rdata") |
|
|
|
|
|
|
|
# Données extraites de web100T pour l'exhaustivité par service |
|
|
|
exhau_pims <- read_csv("exhau_pims.csv") |
|
|
|
exhau_pims <- read_csv("exhau_pims.csv", locale = locale(encoding = "ISO-8859-1")) |
|
|
|
names(exhau_pims) <- c("Pole", "Service", "RUM", "DP", "Erreur", "Sortie") |
|
|
|
|
|
|
|
exhau_pims %<>% |
|
|
|