|
|
@@ -158,6 +158,15 @@ exhau[exhau$mois == mois,]$manq <- gam %>% nrow |
|
|
|
|
|
|
|
save(exhau, file = "exhau.Rdata") |
|
|
|
|
|
|
|
save(Ovalide, OvalideP, annee, mois, rum, rss, gam, exhau, date, file = "donnees.Rdata") |
|
|
|
# Données extraites de web100T pour l'exhaustivité par service |
|
|
|
exhau_pims <- read_csv("exhau_pims.csv") |
|
|
|
names(exhau_pims) <- c("Pole", "Service", "RUM", "DP", "Erreur", "Sortie") |
|
|
|
|
|
|
|
exhau_pims %<>% |
|
|
|
mutate(Sortie = Sortie %>% as.Date) %>% |
|
|
|
filter(month(Sortie) <= mois) |
|
|
|
unlink("exhau_pims.csv") |
|
|
|
|
|
|
|
save(Ovalide, OvalideP, annee, mois, rum, rss, gam, exhau, exhau_pims, date, file = "donnees.Rdata") |
|
|
|
|
|
|
|
write.csv2(gam, "gam.csv") |