Ajout tableau 17 (estimation valorisation séjours non transmis)

cloture.Rmd

@@ -638,16 +638,23 @@ Ovalide$SVB %>%
 *Données issues des tableaux OVALIDE [1.V.1.SV] B de `r periode`*  
 _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_
 
-<!---
-### <a href="#tab17" data-toggle="collapse" class="panel-heading">Estimation de la valorisation des séjours non transmis de l'année en cours et de l'année précédente</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab17}
+### <a href="#tab17" data-toggle="collapse" class="panel-heading">Estimation de la valorisation des séjours non transmis de l'année en cours</a> {.panel .panel-default}
+#### {.panel-body .collapse #tab17}
 ```{r tab17}
+gam %>% filter(date_sortie - date_entree == 0) %>% nrow -> zero
+gam %>% filter(date_sortie - date_entree > 0) %>% 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])) %>%
 
+datatable(escape = F,
+          rownames = c("Nombre", "PMCT*", "Valorisation"),
+          colnames = c("Indicateur", "0 jour", "Plus de 0 jour")) %>%
+formatCurrency(1:2, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")
+rm(plus, zero)
 ```
 *Données issues de la requête BO «`r current`» exécutée le `r date` et des tableaux OVALIDE [1.V.1.SV] B de `r periode`*  
 _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_
--->
 
 ### <a href="#tab18" data-toggle="collapse" class="panel-heading">Indice de performance de la durée moyenne de séjours (IP-DMS) de l'année en cours et de l'année précédente</a> {.panel .panel-default}
 #### {.panel-body .collapse #tab18}