diff --git a/cloture.Rmd b/cloture.Rmd index a96e765..045e25a 100644 --- a/cloture.Rmd +++ b/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])) %>%