/************ simulation de l'Irpp: calcul de statistiques descriptives*/ clear set mem 500m set more off cd "C:\piketty\RevolutionFiscale2010\Simulateur\" /******** appel des paramètres*/ do Programmes/do_appel_parametres /*************phase 1: sauvegarde d'un fichier de résultats agrégés*/ use Fichiers/indiv_transferts_$annee, clear keep id_indiv ppe ppe_rest merge id_indiv using Fichiers/indiv_irpp_$annee egen masse_irpp_bar0=total(irpp_bar0*decl*pondv/1000000000) egen masse_reduc_qf=total(qf*pondv/1000000000) egen masse_reduc_ds=total((reduc_enfmaj+reduc_ds)*decl*pondv/1000000000) egen masse_decote=total(decote_irpp*decl*pondv/1000000000) egen masse_irpp_brut=total(irpp_brut*decl*pondv/1000000000) egen masse_reduc_irpp=total((irpp_brut-irpp_net)*decl*pondv/1000000000) egen masse_irpp_net=total(irpp_net*decl*pondv/1000000000) egen masse_irpp_pv=total(irpp_pv*pondv/1000000000) egen masse_ppe=total(ppe*pondv/1000000000) egen masse_ppe_rest=total(ppe_rest*pondv/1000000000) egen masse_recettes_nettes=total((irpp-qf-ppe)*pondv/1000000000) egen masse_irpp=total(irpp*pondv/1000000000) egen masse_y_irpp=total(y_irpp*pondv/1000000000) egen masse_y_irpp_foy=total(y_irpp_foy*decl*pondv/1000000000) egen masse_rbg=total(rbg_irpp*decl*pondv/1000000000) egen masse_rimp=total(rimp_irpp*decl*pondv/1000000000) egen masse_rfr=total(rfr_irpp*decl*pondv/1000000000) collapse masse* save Resultats/Irpp/statdes_irpp_agreg_$annee, replace