clear

set mem 700m



/** Figures 1-4 **/


use CPS6203.dta, clear

keep if wage_sample==1


sort sex year 

collapse  (p90) ww90=real_wage (p85) ww85=real_wage (p80) ww80=real_wage (p75) ww75=real_wage /*
*/ (p50) ww50=real_wage (p25) ww25=real_wage (p20) ww20=real_wage (p15) ww15=real_wage (p10) ww10=real_wage [fw=wgt] if wgt>=0, by(sex year)

outsheet using "Results/ineq1-4.out", replace




/** Figures 5-12 **/


use CPS6203.dta, clear

keep if wage_sample==1


gen white=(race==1)


sort sex white year 

collapse  (p90) ww90=real_wage (p85) ww85=real_wage (p80) ww80=real_wage (p75) ww75=real_wage /*
*/ (p50) ww50=real_wage (p25) ww25=real_wage (p20) ww20=real_wage (p15) ww15=real_wage (p10) ww10=real_wage [fw=wgt] if wgt>=0, by(sex white year)

outsheet using "Results/ineq5-12.out", replace




/** Figures 13-27 **/


use CPS6203.dta, clear

keep if wage_sample==1

keep if year>=1964


sort sex educ year

collapse  (p90) ww90=real_wage (p85) ww85=real_wage (p80) ww80=real_wage (p75) ww75=real_wage /*
*/ (p50) ww50=real_wage (p25) ww25=real_wage (p20) ww20=real_wage (p15) ww15=real_wage (p10) ww10=real_wage [fw=wgt] if wgt>=0, by(sex educ year)

outsheet using "Results/ineq13-27.out", replace