// Code for "Saving Behavior and Housing Wealth - Evidence from German Micro Data" by S. Gröbel and D. Ihle // Deskriptive Statistiken Ersparnis und Vermögen - START cd "C:\...\Datensaetze" //Enter preferred path here use hmaster_hwpanel_bearbeitet96, clear set more off /* sample bereinigen: Mieter mit Immobilienvermögen droppen */ gen hw=prop+otherprop drop if hw!=0 & hw!=. & dho==0 ************************ Deskriptive Statistik Ersparnis ********************************* *Anteil Mieter und Eigentuemer mit aktiver Ersparnis sort dho by dho: tab sav [aweight=hhrf] sort jahr dho by jahr dho: tab sav [aweight=hhrf] *Mittlere Ersparnis nach WE Status und Jahr sort dho by dho: sum savings [aweight=hhrf] sort jahr dho by jahr dho: sum savings [aweight=hhrf] *Variable generieren mittlere Ersparnis sort dho foreach num in 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 { sum savings [aweight=hhrf] if jahr==`num' & dho==1 gen meansav`num'_ho=r(mean) sum savings [aweight=hhrf] if jahr==`num' & dho==0 gen meansav`num'_rent=r(mean) } *Mittleres Einkommen nach WE Status und Jahr sort dho foreach num in 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 { sum realnetinc [aweight=hhrf] if jahr==`num' & dho==1 gen meaninc`num'_ho=r(mean) sum realnetinc [aweight=hhrf] if jahr==`num' & dho==0 gen meaninc`num'_rent=r(mean) } *Mittlere Erpsarnis/mittleres Einkommen nach WE Status und Jahr foreach num in 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 { gen sav_inc`num'_ho=meansav`num'_ho/meaninc`num'_ho gen sav_inc`num'_rent=meansav`num'_rent/meaninc`num'_rent tab sav_inc`num'_ho tab sav_inc`num'_rent } by dho: sum realnetinc [aweight=hhrf] *Mittlere Ersparnis nach WE Status, Alter und Jahr sort dho old2 foreach num in 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 { sum savings [aweight=hhrf] if jahr==`num' & dho==1 & old2==1 gen meansav`num'_oldho=r(mean) sum savings [aweight=hhrf] if jahr==`num' & dho==1 & old2==0 gen meansav`num'_youngho=r(mean) sum savings [aweight=hhrf] if jahr==`num' & dho==0 & old2==1 gen meansav`num'_oldrent=r(mean) sum savings [aweight=hhrf] if jahr==`num' & dho==0 & old2==0 gen meansav`num'_youngrent=r(mean) } *Mittleres Einkommen nach WE Status, Alter und Jahr sort dho old2 foreach num in 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 { sum realnetinc [aweight=hhrf] if jahr==`num' & dho==1 & old2==1 gen meaninc`num'_oldho=r(mean) sum realnetinc [aweight=hhrf] if jahr==`num' & dho==1 & old2==0 gen meaninc`num'_youngho=r(mean) sum realnetinc [aweight=hhrf] if jahr==`num' & dho==0 & old2==1 gen meaninc`num'_oldrent=r(mean) sum realnetinc [aweight=hhrf] if jahr==`num' & dho==0 & old2==0 gen meaninc`num'_youngrent=r(mean) } *Sparquote nach WE Status, Alter und Jahr foreach num in 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 { gen sav_inc`num'_oldho=meansav`num'_oldho/meaninc`num'_oldho gen sav_inc`num'_youngho=meansav`num'_youngho/meaninc`num'_youngho gen sav_inc`num'_oldrent=meansav`num'_oldrent/meaninc`num'_oldrent gen sav_inc`num'_youngrent=meansav`num'_youngrent/meaninc`num'_youngrent tab sav_inc`num'_oldho tab sav_inc`num'_youngho tab sav_inc`num'_oldrent tab sav_inc`num'_youngrent } ************************ Deskriptive Statistik Vermögen ********************************* /*Nettoimmobilienvermögen 2002, 2007, 2012*/ *Mittleres Netto-Immobilienvermögen (Summe aus eigengenutztem und sonstigem Immobilienvermögen abzüglich der Hypotheken) *2002 sum nethw if jahr==2002 [aweight=hhrf] *2007 sum nethw if jahr==2007 [aweight=hhrf] *2012 sum nethw if jahr==2012 [aweight=hhrf] *Summe Netto-Immobilienvermögen und dessen Anteil am Gesamtvermögen *2002 egen nethw_gesamt02=total(nethw) if jahr==2002 tab nethw_gesamt02 egen nw_gesamt02=total(netwealth) if jahr==2002 gen anteil_nethw02=nethw_gesamt02/nw_gesamt02 tab anteil_nethw02 *2007 egen nethw_gesamt07=total(nethw) if jahr==2007 tab nethw_gesamt07 egen nw_gesamt07=total(netwealth) if jahr==2007 gen anteil_nethw07=nethw_gesamt07/nw_gesamt07 tab anteil_nethw07 *2012 egen nethw_gesamt12=total(nethw) if jahr==2012 tab nethw_gesamt12 egen nw_gesamt12=total(netwealth) if jahr==2012 gen anteil_nethw12=nethw_gesamt12/nw_gesamt12 tab anteil_nethw12 *Anteil HH mit positivem Netto-Immobilienvermögen *2002 count if nethw>0 & jahr==2002 gen nethw_pos02=r(N) count if nethw!=. & jahr==2002 gen nethw_total02=r(N) gen nethw_anteilpos02=(nethw_pos02/nethw_total02)*100 tab nethw_anteilpos02 *2007 count if nethw>0 & jahr==2007 gen nethw_pos07=r(N) count if nethw!=. & jahr==2007 gen nethw_total07=r(N) gen nethw_anteilpos07=(nethw_pos07/nethw_total07)*100 tab nethw_anteilpos07 *2012 count if nethw>0 & jahr==2012 gen nethw_pos12=r(N) count if nethw!=. & jahr==2012 gen nethw_total12=r(N) gen nethw_anteilpos12=(nethw_pos12/nethw_total12)*100 tab nethw_anteilpos12 *Mittleres Netto-Immobilienvermögen nach WE Status (fuer Mieter=0) *2002 sum nethw if jahr==2002 & dho==1 [aweight=hhrf] sum nethw if jahr==2002 & dho==0 [aweight=hhrf] *2007 sum nethw if jahr==2007 & dho==1 [aweight=hhrf] sum nethw if jahr==2007 & dho==0 [aweight=hhrf] *2012 sum nethw if jahr==2012 & dho==1 [aweight=hhrf] sum nethw if jahr==2012 & dho==0 [aweight=hhrf] *Summe Netto-Immobilienvermögen und dessen Anteil am Gesamtvermögen nach WE Status *2002 egen nethw_gesamt02_ho=total(nethw) if jahr==2002 & dho==1 egen nw_gesamt02_ho=total(netwealth) if jahr==2002 & dho==1 gen anteil_nethw02_ho=nethw_gesamt02_ho/nw_gesamt02_ho tab anteil_nethw02_ho egen nethw_gesamt02_rent=total(nethw) if jahr==2002 & dho==0 egen nw_gesamt02_rent=total(netwealth) if jahr==2002 & dho==0 gen anteil_nethw02_rent=nethw_gesamt02_rent/nw_gesamt02_rent tab anteil_nethw02_rent *2007 egen nethw_gesamt07_ho=total(nethw) if jahr==2007 & dho==1 egen nw_gesamt07_ho=total(netwealth) if jahr==2007 & dho==1 gen anteil_nethw07_ho=nethw_gesamt07_ho/nw_gesamt07_ho tab anteil_nethw07_ho egen nethw_gesamt07_rent=total(nethw) if jahr==2007 & dho==0 egen nw_gesamt07_rent=total(netwealth) if jahr==2007 & dho==0 gen anteil_nethw07_rent=nethw_gesamt07_rent/nw_gesamt07_rent tab anteil_nethw07_rent *2012 egen nethw_gesamt12_ho=total(nethw) if jahr==2012 & dho==1 egen nw_gesamt12_ho=total(netwealth) if jahr==2012 & dho==1 gen anteil_nethw12_ho=nethw_gesamt12_ho/nw_gesamt12_ho tab anteil_nethw12_ho egen nethw_gesamt12_rent=total(nethw) if jahr==2012 & dho==0 egen nw_gesamt12_rent=total(netwealth) if jahr==2012 & dho==0 gen anteil_nethw12_rent=nethw_gesamt12_rent/nw_gesamt12_rent tab anteil_nethw12_rent /*Nettovermögen abzüglich des Immobilienvermögens 2002, 2007, 2012*/ *Mittleres Nicht-Immobilienvermögen *2002 sum netnonhw if jahr==2002 [aweight=hhrf] *2007 sum netnonhw if jahr==2007 [aweight=hhrf] *2012 sum netnonhw if jahr==2012 [aweight=hhrf] *Summe Nicht-Immobilienvermögen und dessen Anteil am Gesamtvermögen *2002 egen netnonhw_gesamt02=total(netnonhw) if jahr==2002 tab netnonhw_gesamt02 gen anteil_netnonhw02=netnonhw_gesamt02/nw_gesamt02 tab anteil_netnonhw02 *2007 egen netnonhw_gesamt07=total(netnonhw) if jahr==2007 tab netnonhw_gesamt07 gen anteil_netnonhw07=netnonhw_gesamt07/nw_gesamt07 if jahr==2007 tab anteil_netnonhw07 *2012 egen netnonhw_gesamt12=total(netnonhw) if jahr==2012 tab netnonhw_gesamt12 gen anteil_netnonhw12=netnonhw_gesamt12/nw_gesamt12 if jahr==2012 tab anteil_netnonhw12 *Anteil HH mit positivem Nicht-Immobilienvermögen *2002 count if netnonhw>0 & jahr==2002 gen netnonhw_pos02=r(N) count if netnonhw!=. & jahr==2002 gen netnonhw_total02=r(N) gen netnonhw_anteilpos02=(netnonhw_pos02/netnonhw_total02)*100 tab netnonhw_anteilpos02 *2007 count if netnonhw>0 & jahr==2007 gen netnonhw_pos07=r(N) count if netnonhw!=. & jahr==2007 gen netnonhw_total07=r(N) gen netnonhw_anteilpos07=(netnonhw_pos07/netnonhw_total07)*100 tab netnonhw_anteilpos07 *2012 count if netnonhw>0 & jahr==2012 gen netnonhw_pos12=r(N) count if netnonhw!=. & jahr==2012 gen netnonhw_total12=r(N) gen netnonhw_anteilpos12=(netnonhw_pos12/netnonhw_total12)*100 tab netnonhw_anteilpos12 *Mittleres Nicht-Immobilienvermögen nach WE Status *2002 sum netnonhw if jahr==2002 & dho==1 [aweight=hhrf] sum netnonhw if jahr==2002 & dho==0 [aweight=hhrf] *2007 sum netnonhw if jahr==2007 & dho==1 [aweight=hhrf] sum netnonhw if jahr==2007 & dho==0 [aweight=hhrf] *2012 sum netnonhw if jahr==2012 & dho==1 [aweight=hhrf] sum netnonhw if jahr==2012 & dho==0 [aweight=hhrf] /*Gesamtes Nettovermögen 2002, 2007, 2012*/ *Mittleres Nettovermögen *2002 sum netwealth if jahr==2002 [aweight=hhrf] *2007 sum netwealth if jahr==2007 [aweight=hhrf] *2012 sum netwealth if jahr==2012 [aweight=hhrf] *Anteil HH mit positivem Nettovermögen *2002 count if netwealth>0 & jahr==2002 gen netwealth_pos02=r(N) count if netwealth!=. & jahr==2002 gen netwealth_total02=r(N) gen netwealth_anteilpos02=(netwealth_pos02/netwealth_total02)*100 tab netwealth_anteilpos02 *2007 count if netwealth>0 & jahr==2007 gen netwealth_pos07=r(N) count if netwealth!=. & jahr==2007 gen netwealth_total07=r(N) gen netwealth_anteilpos07=(netwealth_pos07/netwealth_total07)*100 tab netwealth_anteilpos07 *2012 count if netwealth>0 & jahr==2012 gen netwealth_pos12=r(N) count if netwealth!=. & jahr==2012 gen netwealth_total12=r(N) gen netwealth_anteilpos12=(netwealth_pos12/netwealth_total12)*100 tab netwealth_anteilpos12 *Mittleres Nettovermögen nach WE Status *2002 sum netwealth if jahr==2002 & dho==1 [aweight=hhrf] sum netwealth if jahr==2002 & dho==0 [aweight=hhrf] *2007 sum netwealth if jahr==2007 & dho==1 [aweight=hhrf] sum netwealth if jahr==2007 & dho==0 [aweight=hhrf] *2012 sum netwealth if jahr==2012 & dho==1 [aweight=hhrf] sum netwealth if jahr==2012 & dho==0 [aweight=hhrf] /*Mittleres Einkommen nach WE Status*/ *2002 sum ynetinc if jahr==2002 & dho==1 [aweight=hhrf] sum ynetinc if jahr==2002 & dho==0 [aweight=hhrf] *2007 sum ynetinc if jahr==2007 & dho==1 [aweight=hhrf] sum ynetinc if jahr==2007 & dho==0 [aweight=hhrf] *2012 sum ynetinc if jahr==2012 & dho==1 [aweight=hhrf] sum ynetinc if jahr==2012 & dho==0 [aweight=hhrf] // Deskriptive Statistiken Ersparnis und Vermögen - ENDE