From bc4daad8860b8c7eff9e45132e8850055df32226 Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
 <daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Thu, 7 Nov 2024 14:24:46 +0100
Subject: [PATCH] suppression des indicateurs couverts par le secret
 statistique

---
 data-raw/chargement_ptz.R | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/data-raw/chargement_ptz.R b/data-raw/chargement_ptz.R
index ecfb27e..f67798a 100644
--- a/data-raw/chargement_ptz.R
+++ b/data-raw/chargement_ptz.R
@@ -36,10 +36,7 @@ ptz<-rbind(
   cbind(aggregate(valeur~depcom+date,ptz[ptz$variable>100 & ptz$variable<200,],sum),variable="nb_ptz.individuel"),
   cbind(aggregate(valeur~depcom+date,ptz[ptz$variable>200,],sum),variable="nb_ptz.collectif"),
   cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,2,2)==1,],sum),variable="nb_ptz.ancien"),
-  cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,2,2)==2,],sum),variable="nb_ptz.neuf"),
-  cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,3,3)==2,],sum),variable="nb_ptz.locataire_autre"),
-  cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,3,3)==3,],sum),variable="nb_ptz.proprietaire_ou_autre"),
-  cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,3,3)==1,],sum),variable="nb_ptz.locataire_hlm")) %>%
+  cbind(aggregate(valeur~depcom+date,ptz[substr(ptz$variable,2,2)==2,],sum),variable="nb_ptz.neuf")) %>%
   # filter(date>=2008)%>% 
   mutate(date=make_date(date,12,31))%>% 
   mutate_if(is.character,as.factor) %>% 
-- 
GitLab