clear all set more off ***Loading western German data use "H:\Documents\Documents\Daten\Beschäftigtenpanel\Beschäftigtenpanel\Stata\ALLE_balanced_regready_kurz_WD.dta", clear ***variable for job tenure**** by v3: gen Betriebsdauer=1 if v1==9 & AL==0 by v3: replace Betriebsdauer=1 if v80[_n]>v80[_n-1] & AL==0 by v3: replace Betriebsdauer=1 if AL[_n-1]==1 by v3: replace Betriebsdauer=Betriebsdauer[_n-1]+1 if v80[_n]==v80[_n-1] ***truncation of the top and bottom 5% Quantile forvalue i = 9/40 { quietly summarize v19 if v1==`i', detail drop if v19 < r(p5)& v1==`i' drop if v19 > r(p95) & v1==`i' } gen age2=v12^2 xtset v3 v1 ***alternative dummy variables for time periodes gen Y2001_and_later = 1 if v1 > 12 replace Y2001_and_later = 0 if Y2001_and_later == . gen Y2002_and_later = 1 if v1 > 16 replace Y2002_and_later = 0 if Y2002_and_later == . gen Y2003_and_later = 1 if v1 > 20 replace Y2003_and_later = 0 if Y2003_and_later == . gen Y2004_and_later = 1 if v1 > 24 replace Y2004_and_later = 0 if Y2004_and_later == . gen Y2006_and_later = 1 if v1 > 32 replace Y2006_and_later = 0 if Y2006_and_later == . gen Y2007_and_later = 1 if v1 > 36 replace Y2007_and_later = 0 if Y2007_and_later == . xtset v3 v1 gen Q1=1 if v1==9 | v1==13 | v1==17 | v1==21 | v1==25 | v1==29 | v1==33 | v1==37 replace Q1=0 if Q1==. gen Q2=1 if v1==10 | v1==14 | v1==18 | v1==22 | v1==26 | v1==30 | v1==34 | v1==38 replace Q2=0 if Q2==. gen Q3=1 if v1==11 | v1==15 | v1==19 | v1==23 | v1==27 | v1==31 | v1==35 | v1==39 replace Q3=0 if Q3==. gen Q4=1 if v1==12 | v1==16 | v1==20 | v1==24 | v1==28 | v1==32 | v1==36 | v1==40 replace Q4=0 if Q4==. ***calculating real wages*** gen v19_2 = v19 if v1 == 9 replace v19_2= v19/ 1.0007 if v1== 10 replace v19_2= v19/ 1.0073 if v1== 11 replace v19_2= v19/ 1.0105 if v1== 12 replace v19_2= v19/ 1.0160 if v1== 13 replace v19_2= v19/ 1.0257 if v1== 14 replace v19_2= v19/ 1.0283 if v1== 15 replace v19_2= v19/ 1.0250 if v1== 16 replace v19_2= v19/ 1.0359 if v1== 17 replace v19_2= v19/ 1.0377 if v1== 18 replace v19_2= v19/ 1.0392 if v1== 19 replace v19_2= v19/ 1.0377 if v1== 20 replace v19_2= v19/ 1.0475 if v1== 21 replace v19_2= v19/ 1.0464 if v1== 22 replace v19_2= v19/ 1.0497 if v1== 23 replace v19_2= v19/ 1.0497 if v1== 24 replace v19_2= v19/ 1.0584 if v1== 25 replace v19_2= v19/ 1.0664 if v1== 26 replace v19_2= v19/ 1.0711 if v1== 27 replace v19_2= v19/ 1.0725 if v1== 28 replace v19_2= v19/ 1.0765 if v1== 29 replace v19_2= v19/ 1.0838 if v1== 30 replace v19_2= v19/ 1.0935 if v1== 31 replace v19_2= v19/ 1.0964 if v1== 32 replace v19_2= v19/ 1.0986 if v1== 33 replace v19_2= v19/ 1.1070 if v1== 34 replace v19_2= v19/ 1.1113 if v1== 35 replace v19_2= v19/ 1.1109 if v1== 36 replace v19_2= v19/ 1.1193 if v1== 37 replace v19_2= v19/ 1.1287 if v1== 38 replace v19_2= v19/ 1.1356 if v1== 39 replace v19_2= v19/ 1.1450 if v1== 40 drop v19 rename v19_2 v19 ***ln_wage gen ln_wage = ln(v19) ***dummy variable for the Hartz IV Reform*** by v3: gen HARTZ=1 if v1>=29 by v3: replace HARTZ=0 if HARTZ==. ***year dummies gen J2001=1 if v1>12 & v1<17 gen J2002=1 if v1>16 & v1<21 gen J2003=1 if v1>20 & v1<25 gen J2004=1 if v1>24 & v1<29 gen J2005=1 if v1>28 & v1<33 gen J2006=1 if v1>32 & v1<37 gen J2007=1 if v1>36 & v1<=40 replace J2001=0 if J2001==. replace J2002=0 if J2002==. replace J2003=0 if J2003==. replace J2004=0 if J2004==. replace J2005=0 if J2005==. replace J2006=0 if J2006==. replace J2007=0 if J2007==. ***industry specific groo value added gen sektorale_BWSjeET= 100.0 if v1<=12 ***LandFosrtFisch*** replace sektorale_BWSjeET= 103.0 if LandForstFisch==1 & J2001==1 replace sektorale_BWSjeET= 98.6 if LandForstFisch==1 & J2002==1 replace sektorale_BWSjeET= 96.1 if LandForstFisch==1 & J2003==1 replace sektorale_BWSjeET= 123.1 if LandForstFisch==1 & J2004==1 replace sektorale_BWSjeET= 112.2 if LandForstFisch==1 & J2005==1 replace sektorale_BWSjeET= 112.3 if LandForstFisch==1 & J2006==1 replace sektorale_BWSjeET= 106.5 if LandForstFisch==1 & J2007==1 ***BergSteineErden*** replace sektorale_BWSjeET= 92.6 if BergSteineErden==1 & J2001==1 replace sektorale_BWSjeET= 110.9 if BergSteineErden==1 & J2002==1 replace sektorale_BWSjeET= 89.7 if BergSteineErden==1 & J2003==1 replace sektorale_BWSjeET= 108.3 if BergSteineErden==1 & J2004==1 replace sektorale_BWSjeET= 95.3 if BergSteineErden==1 & J2005==1 replace sektorale_BWSjeET= 105.0 if BergSteineErden==1 & J2006==1 replace sektorale_BWSjeET= 108.2 if BergSteineErden==1 & J2007==1 ***Verarbeitendes*** replace sektorale_BWSjeET= 101.2 if Verarbeitendes==1 & J2001==1 replace sektorale_BWSjeET= 101.1 if Verarbeitendes==1 & J2002==1 replace sektorale_BWSjeET= 104.3 if Verarbeitendes==1 & J2003==1 replace sektorale_BWSjeET= 109.4 if Verarbeitendes==1 & J2004==1 replace sektorale_BWSjeET= 113.1 if Verarbeitendes==1 & J2005==1 replace sektorale_BWSjeET= 121.6 if Verarbeitendes==1 & J2006==1 replace sektorale_BWSjeET= 123.0 if Verarbeitendes==1 & J2007==1 ***Energie*** replace sektorale_BWSjeET= 95.3 if Energie==1 & J2001==1 replace sektorale_BWSjeET= 101.6 if Energie==1 & J2002==1 replace sektorale_BWSjeET= 100.7 if Energie==1 & J2003==1 replace sektorale_BWSjeET= 119.7 if Energie==1 & J2004==1 replace sektorale_BWSjeET= 115.2 if Energie==1 & J2005==1 replace sektorale_BWSjeET= 106.2 if Energie==1 & J2006==1 replace sektorale_BWSjeET= 100.7 if Energie==1 & J2007==1 ***Bau*** replace sektorale_BWSjeET= 100.0 if Bau==1 & J2001==1 replace sektorale_BWSjeET= 100.7 if Bau==1 & J2002==1 replace sektorale_BWSjeET= 100.0 if Bau==1 & J2003==1 replace sektorale_BWSjeET= 99.5 if Bau==1 & J2004==1 replace sektorale_BWSjeET= 98.3 if Bau==1 & J2005==1 replace sektorale_BWSjeET= 97.4 if Bau==1 & J2006==1 replace sektorale_BWSjeET= 96.2 if Bau==1 & J2007==1 ***Handel/Gastgewerbe*** replace sektorale_BWSjeET= 102.9 if Handel==1 & J2001==1 replace sektorale_BWSjeET= 101.3 if Handel==1 & J2002==1 replace sektorale_BWSjeET= 103.5 if Handel==1 & J2003==1 replace sektorale_BWSjeET= 104.5 if Handel==1 & J2004==1 replace sektorale_BWSjeET= 108.5 if Handel==1 & J2005==1 replace sektorale_BWSjeET= 109.2 if Handel==1 & J2006==1 replace sektorale_BWSjeET= 110.0 if Handel==1 & J2007==1 ***VerkehrNachrichten*** replace sektorale_BWSjeET= 101.2 if VerkehrNachrichten==1 & J2001==1 replace sektorale_BWSjeET= 106.5 if VerkehrNachrichten==1 & J2002==1 replace sektorale_BWSjeET= 106.8 if VerkehrNachrichten==1 & J2003==1 replace sektorale_BWSjeET= 114.0 if VerkehrNachrichten==1 & J2004==1 replace sektorale_BWSjeET= 112.1 if VerkehrNachrichten==1 & J2005==1 replace sektorale_BWSjeET= 117.4 if VerkehrNachrichten==1 & J2006==1 replace sektorale_BWSjeET= 119.7 if VerkehrNachrichten==1 & J2007==1 ***KreditVersicherung*** replace sektorale_BWSjeET= 96.6 if KreditVersicherung==1 & J2001==1 replace sektorale_BWSjeET= 100.9 if KreditVersicherung==1 & J2002==1 replace sektorale_BWSjeET= 92.4 if KreditVersicherung==1 & J2003==1 replace sektorale_BWSjeET= 92.3 if KreditVersicherung==1 & J2004==1 replace sektorale_BWSjeET= 85.7 if KreditVersicherung==1 & J2005==1 replace sektorale_BWSjeET= 95.2 if KreditVersicherung==1 & J2006==1 replace sektorale_BWSjeET= 104.7 if KreditVersicherung==1 & J2007==1 ***GrundVermietung UND UntDienstleister(nicht separiert in VGR)*** replace sektorale_BWSjeET= 99.7 if GrundVermietung==1 & J2001==1 | UntDienstleister==1 & J2001==1 replace sektorale_BWSjeET= 99.1 if GrundVermietung==1 & J2002==1 | UntDienstleister==1 & J2002==1 replace sektorale_BWSjeET= 99.7 if GrundVermietung==1 & J2003==1 | UntDienstleister==1 & J2003==1 replace sektorale_BWSjeET= 95.6 if GrundVermietung==1 & J2004==1 | UntDienstleister==1 & J2004==1 replace sektorale_BWSjeET= 97.2 if GrundVermietung==1 & J2005==1 | UntDienstleister==1 & J2005==1 replace sektorale_BWSjeET= 95.5 if GrundVermietung==1 & J2006==1 | UntDienstleister==1 & J2006==1 replace sektorale_BWSjeET= 95.0 if GrundVermietung==1 & J2007==1 | UntDienstleister==1 & J2007==1 ***OeffVerwalt*** replace sektorale_BWSjeET= 100.9 if OeffVerwalt==1 & J2001==1 replace sektorale_BWSjeET= 103.0 if OeffVerwalt==1 & J2002==1 replace sektorale_BWSjeET= 103.2 if OeffVerwalt==1 & J2003==1 replace sektorale_BWSjeET= 105.7 if OeffVerwalt==1 & J2004==1 replace sektorale_BWSjeET= 105.8 if OeffVerwalt==1 & J2005==1 replace sektorale_BWSjeET= 106.2 if OeffVerwalt==1 & J2006==1 replace sektorale_BWSjeET= 107.7 if OeffVerwalt==1 & J2007==1 ***Unterricht*** replace sektorale_BWSjeET= 97.3 if Unterricht==1 & J2001==1 replace sektorale_BWSjeET= 95.2 if Unterricht==1 & J2002==1 replace sektorale_BWSjeET= 93.8 if Unterricht==1 & J2003==1 replace sektorale_BWSjeET= 94.1 if Unterricht==1 & J2004==1 replace sektorale_BWSjeET= 91.0 if Unterricht==1 & J2005==1 replace sektorale_BWSjeET= 89.7 if Unterricht==1 & J2006==1 replace sektorale_BWSjeET= 90.1 if Unterricht==1 & J2007==1 ***Soziales*** replace sektorale_BWSjeET= 101.6 if Soziales==1 & J2001==1 replace sektorale_BWSjeET= 106.8 if Soziales==1 & J2002==1 replace sektorale_BWSjeET= 106.2 if Soziales==1 & J2003==1 replace sektorale_BWSjeET= 103.6 if Soziales==1 & J2004==1 replace sektorale_BWSjeET= 105.2 if Soziales==1 & J2005==1 replace sektorale_BWSjeET= 108.2 if Soziales==1 & J2006==1 replace sektorale_BWSjeET= 110.1 if Soziales==1 & J2007==1 ***SonstOeffDienst*** replace sektorale_BWSjeET= 97.4 if SonstOeffDienst==1 & J2001==1 replace sektorale_BWSjeET= 94.4 if SonstOeffDienst==1 & J2002==1 replace sektorale_BWSjeET= 93.6 if SonstOeffDienst==1 & J2003==1 replace sektorale_BWSjeET= 91.9 if SonstOeffDienst==1 & J2004==1 replace sektorale_BWSjeET= 91.5 if SonstOeffDienst==1 & J2005==1 replace sektorale_BWSjeET= 90.4 if SonstOeffDienst==1 & J2006==1 replace sektorale_BWSjeET= 90.8 if SonstOeffDienst==1 & J2007==1 ***Ostdeutschland*** ***LandFosrtFisch*** replace sektorale_BWSjeET= 113.0 if LandForstFisch==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 105.5 if LandForstFisch==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 100.6 if LandForstFisch==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 141.2 if LandForstFisch==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 117.7 if LandForstFisch==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 108.8 if LandForstFisch==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 116.4 if LandForstFisch==1 & J2007==1 & v21==2 ***BergSteineErden*** replace sektorale_BWSjeET= 63.0 if BergSteineErden==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 68.5 if BergSteineErden==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 74.6 if BergSteineErden==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 69.0 if BergSteineErden==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 49.2 if BergSteineErden==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 55.2 if BergSteineErden==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 62.7 if BergSteineErden==1 & J2007==1 & v21==2 ***Verarbeitendes*** replace sektorale_BWSjeET= 103.2 if Verarbeitendes==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 106.4 if Verarbeitendes==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 112.6 if Verarbeitendes==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 122.3 if Verarbeitendes==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 131.0 if Verarbeitendes==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 142.5 if Verarbeitendes==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 145.6 if Verarbeitendes==1 & J2007==1 & v21==2 ***Energie*** replace sektorale_BWSjeET= 107.8 if Energie==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 111.3 if Energie==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 115.4 if Energie==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 124.7 if Energie==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 129.9 if Energie==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 131.9 if Energie==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 129.1 if Energie==1 & J2007==1 & v21==2 ***Bau*** replace sektorale_BWSjeET= 100.0 if Bau==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 107.9 if Bau==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 110.1 if Bau==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 108.4 if Bau==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 104.7 if Bau==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 103.9 if Bau==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 104.5 if Bau==1 & J2007==1 & v21==2 ***Handel/Gastgewerbe*** replace sektorale_BWSjeET= 105.1 if Handel==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 107.8 if Handel==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 110.7 if Handel==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 109.9 if Handel==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 111.0 if Handel==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 112.7 if Handel==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 108.9 if Handel==1 & J2007==1 & v21==2 ***VerkehrNachrichten*** replace sektorale_BWSjeET= 102.8 if VerkehrNachrichten==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 113.3 if VerkehrNachrichten==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 113.1 if VerkehrNachrichten==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 120.4 if VerkehrNachrichten==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 120.5 if VerkehrNachrichten==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 127.7 if VerkehrNachrichten==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 126.5 if VerkehrNachrichten==1 & J2007==1 & v21==2 ***KreditVersicherung*** replace sektorale_BWSjeET= 96.1 if KreditVersicherung==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 100.1 if KreditVersicherung==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 91.4 if KreditVersicherung==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 87.5 if KreditVersicherung==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 86.6 if KreditVersicherung==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 92.4 if KreditVersicherung==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 102.2 if KreditVersicherung==1 & J2007==1 & v21==2 ***GrundVermietung UND UntDienstleister(nicht separiert in VGR)*** replace sektorale_BWSjeET= 104.3 if GrundVermietung==1 & J2001==1 & v21==2| UntDienstleister==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 107.3 if GrundVermietung==1 & J2002==1 & v21==2| UntDienstleister==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 108.4 if GrundVermietung==1 & J2003==1 & v21==2| UntDienstleister==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 104.9 if GrundVermietung==1 & J2004==1 & v21==2| UntDienstleister==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 109.2 if GrundVermietung==1 & J2005==1 & v21==2| UntDienstleister==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 107.6 if GrundVermietung==1 & J2006==1 & v21==2| UntDienstleister==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 105.9 if GrundVermietung==1 & J2007==1 & v21==2| UntDienstleister==1 & J2007==1 & v21==2 ***OeffVerwalt*** replace sektorale_BWSjeET= 100.0 if OeffVerwalt==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 101.3 if OeffVerwalt==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 102.1 if OeffVerwalt==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 102.8 if OeffVerwalt==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 101.2 if OeffVerwalt==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 102.6 if OeffVerwalt==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 103.3 if OeffVerwalt==1 & J2007==1 & v21==2 ***Unterricht*** replace sektorale_BWSjeET= 100.6 if Unterricht==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 100.1 if Unterricht==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 100.0 if Unterricht==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 101.6 if Unterricht==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 100.4 if Unterricht==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 100.0 if Unterricht==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 99.1 if Unterricht==1 & J2007==1 & v21==2 ***Soziales*** replace sektorale_BWSjeET= 98.3 if Soziales==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 100.2 if Soziales==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 100.7 if Soziales==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 100.1 if Soziales==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 101.1 if Soziales==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 103.0 if Soziales==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 106.4 if Soziales==1 & J2007==1 & v21==2 ***SonstOeffDienst*** replace sektorale_BWSjeET= 97.9 if SonstOeffDienst==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 94.3 if SonstOeffDienst==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 95.9 if SonstOeffDienst==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 94.1 if SonstOeffDienst==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 89.6 if SonstOeffDienst==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 90.1 if SonstOeffDienst==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 90.1 if SonstOeffDienst==1 & J2007==1 & v21==2 replace sektorale_BWSjeET= . if LandForstFisch==0 & BergSteineErden==0 & Verarbeitendes==0 & Energie==0 & Bau==0 & Handel==0 & VerkehrNachrichten==0 & KreditVersicherung==0 & GrundVermietung==0 & UntDienstleister==0 & OeffVerwalt==0 & Unterricht==0 & Soziales==0 & SonstOeffDienst==0 ***Rename variable like in paper rename v12 age rename Arbeiter unskilled_blue_collar_worker rename Facharbeiter skilled_blue_collar_worker rename Meister foreman rename KleinUnt small_firm rename GrossUnt large_firm rename U20 firms_share_of_young_employees rename Ue55 firms_share_of_old_employees rename Betriebsdauer job_tenure rename sektorale_BWSjeET industrial_specific_gva rename HARTZ lower_UB save "H:\Documents\Documents\Paper\Hartz IV Note\Daten\Data_for_Publication\Publication_data_western_Germany.dta", replace clear all use "H:\Documents\Documents\Daten\Beschäftigtenpanel\Beschäftigtenpanel\Stata\ALLE_balanced_regready_kurz_OD.dta", clear ***variable for job tenure**** by v3: gen Betriebsdauer=1 if v1==9 & AL==0 by v3: replace Betriebsdauer=1 if v80[_n]>v80[_n-1] & AL==0 by v3: replace Betriebsdauer=1 if AL[_n-1]==1 by v3: replace Betriebsdauer=Betriebsdauer[_n-1]+1 if v80[_n]==v80[_n-1] ***truncation of the top and bottom 5% Quantile forvalue i = 9/40 { quietly summarize v19 if v1==`i', detail drop if v19 < r(p5)& v1==`i' drop if v19 > r(p95) & v1==`i' } gen age2=v12^2 xtset v3 v1 ***alternative dummy variables for time periodes gen Y2001_and_later = 1 if v1 > 12 replace Y2001_and_later = 0 if Y2001_and_later == . gen Y2002_and_later = 1 if v1 > 16 replace Y2002_and_later = 0 if Y2002_and_later == . gen Y2003_and_later = 1 if v1 > 20 replace Y2003_and_later = 0 if Y2003_and_later == . gen Y2004_and_later = 1 if v1 > 24 replace Y2004_and_later = 0 if Y2004_and_later == . gen Y2006_and_later = 1 if v1 > 32 replace Y2006_and_later = 0 if Y2006_and_later == . gen Y2007_and_later = 1 if v1 > 36 replace Y2007_and_later = 0 if Y2007_and_later == . xtset v3 v1 gen Q1=1 if v1==9 | v1==13 | v1==17 | v1==21 | v1==25 | v1==29 | v1==33 | v1==37 replace Q1=0 if Q1==. gen Q2=1 if v1==10 | v1==14 | v1==18 | v1==22 | v1==26 | v1==30 | v1==34 | v1==38 replace Q2=0 if Q2==. gen Q3=1 if v1==11 | v1==15 | v1==19 | v1==23 | v1==27 | v1==31 | v1==35 | v1==39 replace Q3=0 if Q3==. gen Q4=1 if v1==12 | v1==16 | v1==20 | v1==24 | v1==28 | v1==32 | v1==36 | v1==40 replace Q4=0 if Q4==. ***calculating real wages*** gen v19_2 = v19 if v1 == 9 replace v19_2= v19/ 1.0007 if v1== 10 replace v19_2= v19/ 1.0073 if v1== 11 replace v19_2= v19/ 1.0105 if v1== 12 replace v19_2= v19/ 1.0160 if v1== 13 replace v19_2= v19/ 1.0257 if v1== 14 replace v19_2= v19/ 1.0283 if v1== 15 replace v19_2= v19/ 1.0250 if v1== 16 replace v19_2= v19/ 1.0359 if v1== 17 replace v19_2= v19/ 1.0377 if v1== 18 replace v19_2= v19/ 1.0392 if v1== 19 replace v19_2= v19/ 1.0377 if v1== 20 replace v19_2= v19/ 1.0475 if v1== 21 replace v19_2= v19/ 1.0464 if v1== 22 replace v19_2= v19/ 1.0497 if v1== 23 replace v19_2= v19/ 1.0497 if v1== 24 replace v19_2= v19/ 1.0584 if v1== 25 replace v19_2= v19/ 1.0664 if v1== 26 replace v19_2= v19/ 1.0711 if v1== 27 replace v19_2= v19/ 1.0725 if v1== 28 replace v19_2= v19/ 1.0765 if v1== 29 replace v19_2= v19/ 1.0838 if v1== 30 replace v19_2= v19/ 1.0935 if v1== 31 replace v19_2= v19/ 1.0964 if v1== 32 replace v19_2= v19/ 1.0986 if v1== 33 replace v19_2= v19/ 1.1070 if v1== 34 replace v19_2= v19/ 1.1113 if v1== 35 replace v19_2= v19/ 1.1109 if v1== 36 replace v19_2= v19/ 1.1193 if v1== 37 replace v19_2= v19/ 1.1287 if v1== 38 replace v19_2= v19/ 1.1356 if v1== 39 replace v19_2= v19/ 1.1450 if v1== 40 drop v19 rename v19_2 v19 ***ln_wage gen ln_wage = ln(v19) ***dummy variable for the Hartz IV Reform*** by v3: gen HARTZ=1 if v1>=29 by v3: replace HARTZ=0 if HARTZ==. ***year dummies gen J2001=1 if v1>12 & v1<17 gen J2002=1 if v1>16 & v1<21 gen J2003=1 if v1>20 & v1<25 gen J2004=1 if v1>24 & v1<29 gen J2005=1 if v1>28 & v1<33 gen J2006=1 if v1>32 & v1<37 gen J2007=1 if v1>36 & v1<=40 replace J2001=0 if J2001==. replace J2002=0 if J2002==. replace J2003=0 if J2003==. replace J2004=0 if J2004==. replace J2005=0 if J2005==. replace J2006=0 if J2006==. replace J2007=0 if J2007==. ***industry specific groos value added gen sektorale_BWSjeET= 100.0 if v1<=12 ***LandFosrtFisch*** replace sektorale_BWSjeET= 103.0 if LandForstFisch==1 & J2001==1 replace sektorale_BWSjeET= 98.6 if LandForstFisch==1 & J2002==1 replace sektorale_BWSjeET= 96.1 if LandForstFisch==1 & J2003==1 replace sektorale_BWSjeET= 123.1 if LandForstFisch==1 & J2004==1 replace sektorale_BWSjeET= 112.2 if LandForstFisch==1 & J2005==1 replace sektorale_BWSjeET= 112.3 if LandForstFisch==1 & J2006==1 replace sektorale_BWSjeET= 106.5 if LandForstFisch==1 & J2007==1 ***BergSteineErden*** replace sektorale_BWSjeET= 92.6 if BergSteineErden==1 & J2001==1 replace sektorale_BWSjeET= 110.9 if BergSteineErden==1 & J2002==1 replace sektorale_BWSjeET= 89.7 if BergSteineErden==1 & J2003==1 replace sektorale_BWSjeET= 108.3 if BergSteineErden==1 & J2004==1 replace sektorale_BWSjeET= 95.3 if BergSteineErden==1 & J2005==1 replace sektorale_BWSjeET= 105.0 if BergSteineErden==1 & J2006==1 replace sektorale_BWSjeET= 108.2 if BergSteineErden==1 & J2007==1 ***Verarbeitendes*** replace sektorale_BWSjeET= 101.2 if Verarbeitendes==1 & J2001==1 replace sektorale_BWSjeET= 101.1 if Verarbeitendes==1 & J2002==1 replace sektorale_BWSjeET= 104.3 if Verarbeitendes==1 & J2003==1 replace sektorale_BWSjeET= 109.4 if Verarbeitendes==1 & J2004==1 replace sektorale_BWSjeET= 113.1 if Verarbeitendes==1 & J2005==1 replace sektorale_BWSjeET= 121.6 if Verarbeitendes==1 & J2006==1 replace sektorale_BWSjeET= 123.0 if Verarbeitendes==1 & J2007==1 ***Energie*** replace sektorale_BWSjeET= 95.3 if Energie==1 & J2001==1 replace sektorale_BWSjeET= 101.6 if Energie==1 & J2002==1 replace sektorale_BWSjeET= 100.7 if Energie==1 & J2003==1 replace sektorale_BWSjeET= 119.7 if Energie==1 & J2004==1 replace sektorale_BWSjeET= 115.2 if Energie==1 & J2005==1 replace sektorale_BWSjeET= 106.2 if Energie==1 & J2006==1 replace sektorale_BWSjeET= 100.7 if Energie==1 & J2007==1 ***Bau*** replace sektorale_BWSjeET= 100.0 if Bau==1 & J2001==1 replace sektorale_BWSjeET= 100.7 if Bau==1 & J2002==1 replace sektorale_BWSjeET= 100.0 if Bau==1 & J2003==1 replace sektorale_BWSjeET= 99.5 if Bau==1 & J2004==1 replace sektorale_BWSjeET= 98.3 if Bau==1 & J2005==1 replace sektorale_BWSjeET= 97.4 if Bau==1 & J2006==1 replace sektorale_BWSjeET= 96.2 if Bau==1 & J2007==1 ***Handel/Gastgewerbe*** replace sektorale_BWSjeET= 102.9 if Handel==1 & J2001==1 replace sektorale_BWSjeET= 101.3 if Handel==1 & J2002==1 replace sektorale_BWSjeET= 103.5 if Handel==1 & J2003==1 replace sektorale_BWSjeET= 104.5 if Handel==1 & J2004==1 replace sektorale_BWSjeET= 108.5 if Handel==1 & J2005==1 replace sektorale_BWSjeET= 109.2 if Handel==1 & J2006==1 replace sektorale_BWSjeET= 110.0 if Handel==1 & J2007==1 ***VerkehrNachrichten*** replace sektorale_BWSjeET= 101.2 if VerkehrNachrichten==1 & J2001==1 replace sektorale_BWSjeET= 106.5 if VerkehrNachrichten==1 & J2002==1 replace sektorale_BWSjeET= 106.8 if VerkehrNachrichten==1 & J2003==1 replace sektorale_BWSjeET= 114.0 if VerkehrNachrichten==1 & J2004==1 replace sektorale_BWSjeET= 112.1 if VerkehrNachrichten==1 & J2005==1 replace sektorale_BWSjeET= 117.4 if VerkehrNachrichten==1 & J2006==1 replace sektorale_BWSjeET= 119.7 if VerkehrNachrichten==1 & J2007==1 ***KreditVersicherung*** replace sektorale_BWSjeET= 96.6 if KreditVersicherung==1 & J2001==1 replace sektorale_BWSjeET= 100.9 if KreditVersicherung==1 & J2002==1 replace sektorale_BWSjeET= 92.4 if KreditVersicherung==1 & J2003==1 replace sektorale_BWSjeET= 92.3 if KreditVersicherung==1 & J2004==1 replace sektorale_BWSjeET= 85.7 if KreditVersicherung==1 & J2005==1 replace sektorale_BWSjeET= 95.2 if KreditVersicherung==1 & J2006==1 replace sektorale_BWSjeET= 104.7 if KreditVersicherung==1 & J2007==1 ***GrundVermietung UND UntDienstleister(nicht separiert in VGR)*** replace sektorale_BWSjeET= 99.7 if GrundVermietung==1 & J2001==1 | UntDienstleister==1 & J2001==1 replace sektorale_BWSjeET= 99.1 if GrundVermietung==1 & J2002==1 | UntDienstleister==1 & J2002==1 replace sektorale_BWSjeET= 99.7 if GrundVermietung==1 & J2003==1 | UntDienstleister==1 & J2003==1 replace sektorale_BWSjeET= 95.6 if GrundVermietung==1 & J2004==1 | UntDienstleister==1 & J2004==1 replace sektorale_BWSjeET= 97.2 if GrundVermietung==1 & J2005==1 | UntDienstleister==1 & J2005==1 replace sektorale_BWSjeET= 95.5 if GrundVermietung==1 & J2006==1 | UntDienstleister==1 & J2006==1 replace sektorale_BWSjeET= 95.0 if GrundVermietung==1 & J2007==1 | UntDienstleister==1 & J2007==1 ***OeffVerwalt*** replace sektorale_BWSjeET= 100.9 if OeffVerwalt==1 & J2001==1 replace sektorale_BWSjeET= 103.0 if OeffVerwalt==1 & J2002==1 replace sektorale_BWSjeET= 103.2 if OeffVerwalt==1 & J2003==1 replace sektorale_BWSjeET= 105.7 if OeffVerwalt==1 & J2004==1 replace sektorale_BWSjeET= 105.8 if OeffVerwalt==1 & J2005==1 replace sektorale_BWSjeET= 106.2 if OeffVerwalt==1 & J2006==1 replace sektorale_BWSjeET= 107.7 if OeffVerwalt==1 & J2007==1 ***Unterricht*** replace sektorale_BWSjeET= 97.3 if Unterricht==1 & J2001==1 replace sektorale_BWSjeET= 95.2 if Unterricht==1 & J2002==1 replace sektorale_BWSjeET= 93.8 if Unterricht==1 & J2003==1 replace sektorale_BWSjeET= 94.1 if Unterricht==1 & J2004==1 replace sektorale_BWSjeET= 91.0 if Unterricht==1 & J2005==1 replace sektorale_BWSjeET= 89.7 if Unterricht==1 & J2006==1 replace sektorale_BWSjeET= 90.1 if Unterricht==1 & J2007==1 ***Soziales*** replace sektorale_BWSjeET= 101.6 if Soziales==1 & J2001==1 replace sektorale_BWSjeET= 106.8 if Soziales==1 & J2002==1 replace sektorale_BWSjeET= 106.2 if Soziales==1 & J2003==1 replace sektorale_BWSjeET= 103.6 if Soziales==1 & J2004==1 replace sektorale_BWSjeET= 105.2 if Soziales==1 & J2005==1 replace sektorale_BWSjeET= 108.2 if Soziales==1 & J2006==1 replace sektorale_BWSjeET= 110.1 if Soziales==1 & J2007==1 ***SonstOeffDienst*** replace sektorale_BWSjeET= 97.4 if SonstOeffDienst==1 & J2001==1 replace sektorale_BWSjeET= 94.4 if SonstOeffDienst==1 & J2002==1 replace sektorale_BWSjeET= 93.6 if SonstOeffDienst==1 & J2003==1 replace sektorale_BWSjeET= 91.9 if SonstOeffDienst==1 & J2004==1 replace sektorale_BWSjeET= 91.5 if SonstOeffDienst==1 & J2005==1 replace sektorale_BWSjeET= 90.4 if SonstOeffDienst==1 & J2006==1 replace sektorale_BWSjeET= 90.8 if SonstOeffDienst==1 & J2007==1 ***Ostdeutschland*** ***LandFosrtFisch*** replace sektorale_BWSjeET= 113.0 if LandForstFisch==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 105.5 if LandForstFisch==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 100.6 if LandForstFisch==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 141.2 if LandForstFisch==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 117.7 if LandForstFisch==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 108.8 if LandForstFisch==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 116.4 if LandForstFisch==1 & J2007==1 & v21==2 ***BergSteineErden*** replace sektorale_BWSjeET= 63.0 if BergSteineErden==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 68.5 if BergSteineErden==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 74.6 if BergSteineErden==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 69.0 if BergSteineErden==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 49.2 if BergSteineErden==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 55.2 if BergSteineErden==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 62.7 if BergSteineErden==1 & J2007==1 & v21==2 ***Verarbeitendes*** replace sektorale_BWSjeET= 103.2 if Verarbeitendes==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 106.4 if Verarbeitendes==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 112.6 if Verarbeitendes==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 122.3 if Verarbeitendes==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 131.0 if Verarbeitendes==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 142.5 if Verarbeitendes==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 145.6 if Verarbeitendes==1 & J2007==1 & v21==2 ***Energie*** replace sektorale_BWSjeET= 107.8 if Energie==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 111.3 if Energie==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 115.4 if Energie==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 124.7 if Energie==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 129.9 if Energie==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 131.9 if Energie==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 129.1 if Energie==1 & J2007==1 & v21==2 ***Bau*** replace sektorale_BWSjeET= 100.0 if Bau==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 107.9 if Bau==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 110.1 if Bau==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 108.4 if Bau==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 104.7 if Bau==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 103.9 if Bau==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 104.5 if Bau==1 & J2007==1 & v21==2 ***Handel/Gastgewerbe*** replace sektorale_BWSjeET= 105.1 if Handel==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 107.8 if Handel==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 110.7 if Handel==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 109.9 if Handel==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 111.0 if Handel==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 112.7 if Handel==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 108.9 if Handel==1 & J2007==1 & v21==2 ***VerkehrNachrichten*** replace sektorale_BWSjeET= 102.8 if VerkehrNachrichten==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 113.3 if VerkehrNachrichten==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 113.1 if VerkehrNachrichten==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 120.4 if VerkehrNachrichten==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 120.5 if VerkehrNachrichten==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 127.7 if VerkehrNachrichten==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 126.5 if VerkehrNachrichten==1 & J2007==1 & v21==2 ***KreditVersicherung*** replace sektorale_BWSjeET= 96.1 if KreditVersicherung==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 100.1 if KreditVersicherung==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 91.4 if KreditVersicherung==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 87.5 if KreditVersicherung==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 86.6 if KreditVersicherung==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 92.4 if KreditVersicherung==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 102.2 if KreditVersicherung==1 & J2007==1 & v21==2 ***GrundVermietung UND UntDienstleister(nicht separiert in VGR)*** replace sektorale_BWSjeET= 104.3 if GrundVermietung==1 & J2001==1 & v21==2| UntDienstleister==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 107.3 if GrundVermietung==1 & J2002==1 & v21==2| UntDienstleister==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 108.4 if GrundVermietung==1 & J2003==1 & v21==2| UntDienstleister==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 104.9 if GrundVermietung==1 & J2004==1 & v21==2| UntDienstleister==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 109.2 if GrundVermietung==1 & J2005==1 & v21==2| UntDienstleister==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 107.6 if GrundVermietung==1 & J2006==1 & v21==2| UntDienstleister==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 105.9 if GrundVermietung==1 & J2007==1 & v21==2| UntDienstleister==1 & J2007==1 & v21==2 ***OeffVerwalt*** replace sektorale_BWSjeET= 100.0 if OeffVerwalt==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 101.3 if OeffVerwalt==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 102.1 if OeffVerwalt==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 102.8 if OeffVerwalt==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 101.2 if OeffVerwalt==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 102.6 if OeffVerwalt==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 103.3 if OeffVerwalt==1 & J2007==1 & v21==2 ***Unterricht*** replace sektorale_BWSjeET= 100.6 if Unterricht==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 100.1 if Unterricht==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 100.0 if Unterricht==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 101.6 if Unterricht==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 100.4 if Unterricht==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 100.0 if Unterricht==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 99.1 if Unterricht==1 & J2007==1 & v21==2 ***Soziales*** replace sektorale_BWSjeET= 98.3 if Soziales==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 100.2 if Soziales==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 100.7 if Soziales==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 100.1 if Soziales==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 101.1 if Soziales==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 103.0 if Soziales==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 106.4 if Soziales==1 & J2007==1 & v21==2 ***SonstOeffDienst*** replace sektorale_BWSjeET= 97.9 if SonstOeffDienst==1 & J2001==1 & v21==2 replace sektorale_BWSjeET= 94.3 if SonstOeffDienst==1 & J2002==1 & v21==2 replace sektorale_BWSjeET= 95.9 if SonstOeffDienst==1 & J2003==1 & v21==2 replace sektorale_BWSjeET= 94.1 if SonstOeffDienst==1 & J2004==1 & v21==2 replace sektorale_BWSjeET= 89.6 if SonstOeffDienst==1 & J2005==1 & v21==2 replace sektorale_BWSjeET= 90.1 if SonstOeffDienst==1 & J2006==1 & v21==2 replace sektorale_BWSjeET= 90.1 if SonstOeffDienst==1 & J2007==1 & v21==2 replace sektorale_BWSjeET= . if LandForstFisch==0 & BergSteineErden==0 & Verarbeitendes==0 & Energie==0 & Bau==0 & Handel==0 & VerkehrNachrichten==0 & KreditVersicherung==0 & GrundVermietung==0 & UntDienstleister==0 & OeffVerwalt==0 & Unterricht==0 & Soziales==0 & SonstOeffDienst==0 ***Rename variable like in paper rename v12 age rename Arbeiter unskilled_blue_collar_worker rename Facharbeiter skilled_blue_collar_worker rename Meister foreman rename KleinUnt small_firm rename GrossUnt large_firm rename U20 firms_share_of_young_employees rename Ue55 firms_share_of_old_employees rename Betriebsdauer job_tenure rename sektorale_BWSjeET industrial_specific_gva rename HARTZ lower_UB save "H:\Documents\Documents\Paper\Hartz IV Note\Daten\Data_for_Publication\Publication_data_eastern_Germany.dta", replace