|
|
@@ -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])) %>% |
|
|
|