correction remplacement 80 par 85

data-raw/03_secretisation.R

@@ -7,13 +7,13 @@ tranches_ecln <- read_excel("data-raw/tranches_ecln.xls")
 ecln_secret_11 <- left_join(ecln_secret_10, tranches_ecln, by= "Indicateur") %>%
   select(-Indicateur2)
 
-# application de la règle des 80 % (on secrétise si un promoteur représente plus de 80 %)
-# Pour simplifier, lorsque qu'un promoteur représente plus de 80% (part_max>0.8), on remplace la valeur nb_promoteurs par 1
+# application de la règle des 85 % (on secrétise si un promoteur représente plus de 85 %)
+# Pour simplifier, lorsque qu'un promoteur représente plus de 85% (part_max>0.85), on remplace la valeur nb_promoteurs par 1
 # Ce qui assure que la donnée sera secrétisée
 ecln_secret_11 <- ecln_secret_11 %>%
   mutate( nb_promoteurs_reel = nb_promoteurs,  # conservation de la valeur réelle du nombre de promoteurs
           nb_promoteurs = case_when(
-    part_max > 0.8 ~ 1,
+    part_max > 0.85 ~ 1,
     TRUE ~ nb_promoteurs
   ))