Correction valo séjours non transmis

cloture.Rmd

@@ -677,8 +677,8 @@ _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_
 
 ## Estimation de la valorisation des séjours non transmis de l'année en cours
 ```{r tab17}
-exhau_pims %>% filter(is.na(DP), Duree == 0) %>% nrow -> zero
-exhau_pims %>% filter(is.na(DP), Duree > 0) %>% nrow -> plus
+exhau_pims %>% filter(is.na(DP), Duree == 0) %>% distinct(RSS) %>% nrow -> zero
+exhau_pims %>% filter(is.na(DP), Duree > 0) %>% distinct(RSS) %>% nrow -> plus
 
 data.frame(zero = c(zero, Ovalide$SVB$C[3]/Ovalide$SVB$B[3], zero * Ovalide$SVB$C[3]/Ovalide$SVB$B[3]),
            plus = c(plus, Ovalide$SVB$C[2]/Ovalide$SVB$B[2], plus * Ovalide$SVB$C[2]/Ovalide$SVB$B[2])) %>%