------------------------------------------------------------------------------------------------------------------------------------------------------------------- name: log: C:\Users\my37myho\Google Drive\Gender Wage Gap Germany\BlauKahn\blau_kahn_jel_cps_table1.log log type: text opened on: 7 Jun 2019, 09:24:47 . . . . *************************************************************** . ********Replication of Blau & Kahn 2017 JEL . **Author: Matthias Collischon . **Data: CPS . *************************************************************** . /* > This Do-File replicates the results of the estimations with the CPS from: > > Blau, Francine D., and Lawrence M. Kahn. 2017. "The Gender Wage Gap: Extent, Trends, and Explanations." Journal of Economic Literature, 55 (3): 789-865. DOI: 10. > 1257/jel.20160995 > > The generation of the variables are adopted from the syntax of Blau & Kahn that > is available online as supplementary material to their article. I also use the > CPS-file they provide for this replication. > > > */ . . . set more off . . use "C:\Users\my37myho\Google Drive\Gender Wage Gap Germany\BlauKahn\20160995_CPS_reg.dta", clear . . . keep if wagesamp==1 (3,608 observations deleted) . . keep if wkswork1>=26 & classwkr~=29 (11,898 observations deleted) . *KEEPING WORKERS WITH AT LEAST 26 WEEKS AND WHO ARE WAGE AND SALARY EMPLOYEES . keep if hispan~=. (1,308 observations deleted) . . *potexp IS age-years of schooling-6, constrained to be positive and no greater than age-18 . . *THE FOLLOWING STEPS INTRODUCE PERCENTILES OF THE LOG WAGE DISTRIBUTION BY GENDER BY YEAR . . gen lnwage=lnrwg . *USING LOG REAL WAGE FROM DATA CREATION PROGRAM, WHICH CREATED REAL HOURLY EARNINGS IN 2010 DOLLARS AS DESCRIBED ABOVE . . cap drop hrwage . gen hrwage=exp(lnrwg) . . keep if ft==1 (36,530 observations deleted) . *KEEPING FULL TIME WORKERS WITH AT LEAST 26 WEEKS OF WORK AND WITH REAL HOURLY EARNINGS AT LEAST 2 DOLLARS IN 2010 DOLLARS USING THE PCE DEFLATOR . keep if wkswork1>=26 (0 observations deleted) . keep if hrwage>=2 (0 observations deleted) . . **********Table 1 . . **Mean Gaps . foreach t of numlist 1981 1990 1999 2011 { 2. quietly sum lnwage if year==`t' & female==1 & hrwage>=2 & wkswork1>=26 [aweight=wtsupp] , d 3. local mean_female=`r(mean)' 4. quietly sum lnwage if year==`t' & female==0 & hrwage>=2 & wkswork1>=26 [aweight=wtsupp] , d 5. local mean_male=`r(mean)' 6. disp "Year: " `t'-1 " Mean Ratio: " round(exp(`mean_female'-`mean_male'),.001) 7. } Year: 1980 Mean Ratio: .635 Year: 1989 Mean Ratio: .724 Year: 1998 Mean Ratio: .771 Year: 2010 Mean Ratio: .823 . . ***Percentiles . . foreach t of numlist 1981 1990 1999 2011 { 2. foreach q of numlist 10 50 90 { 3. quietly sum lnwage if year==`t' & female==1 & hrwage>=2 & wkswork1>=26 [aweight=wtsupp] , d 4. local mean_female=`r(p`q')' 5. quietly sum lnwage if year==`t' & female==0 & hrwage>=2 & wkswork1>=26 [aweight=wtsupp] , d 6. local mean_male=`r(p`q')' 7. disp "Year: " `t'-1 " Percentile "`q' "-ratio: " round(exp(`mean_female'-`mean_male'),.001) 8. } 9. } Year: 1980 Percentile 10-ratio: .687 Year: 1980 Percentile 50-ratio: .619 Year: 1980 Percentile 90-ratio: .643 Year: 1989 Percentile 10-ratio: .781 Year: 1989 Percentile 50-ratio: .722 Year: 1989 Percentile 90-ratio: .714 Year: 1998 Percentile 10-ratio: .813 Year: 1998 Percentile 50-ratio: .762 Year: 1998 Percentile 90-ratio: .761 Year: 2010 Percentile 10-ratio: .876 Year: 2010 Percentile 50-ratio: .822 Year: 2010 Percentile 90-ratio: .766 . . . log close name: log: C:\Users\my37myho\Google Drive\Gender Wage Gap Germany\BlauKahn\blau_kahn_jel_cps_table1.log log type: text closed on: 7 Jun 2019, 09:24:56 -------------------------------------------------------------------------------------------------------------------------------------------------------------------