clear set memory 60000 set more off capture log close cd c:\DATA\NBMaine\2008_08\Final\CellMeanData log using AggReg30, replace *Cell Mean Data Regressions * calculate PY income at 30 weeks of work * simple regression of cell mean share PY, industry share weights *note: includes region*industry controls use menb_cell_level_data_aug05.dta *********** *Correlates *********** gen female=0 replace female =1 if gender == "Female" gen nb=0 replace nb =1 if country == "NB" gen me=0 replace me=1 if country == "ME" gen agric=0 replace agric=1 if industry =="Agriculture" gen const=0 replace const=1 if industry =="Construction" gen finance=0 replace finance=1 if industry =="Finance" gen govt=0 replace govt=1 if industry =="Government" gen manuf=0 replace manuf=1 if industry =="Manufacturing" gen primary=0 replace primary=1 if industry =="Primary" gen services=0 replace services=1 if industry =="Services" gen trade=0 replace trade=1 if industry =="Trade" gen trans=0 replace trans=1 if industry =="Transport" gen y1940 = year == 1940 gen y1950 = year == 1950 gen y1960 = year == 1960 gen y1970 = year == 1970 gen y1980 = year == 1980 gen y1990 = year == 1990 log close **************************************************** *Generate income differential -- 30 weeks paramaters **************************************************** gen wba =. gen duration =. *** *NB *** ***** *1940 ***** replace wba = 0 if nb==1 & year == 1940 replace duration = 0 if nb==1 & year == 1940 ***** *1950 ***** *replace wba = 4.2 if (wklywage < 9) & (year ==1950 & nb==1) *replace wba = 6 if (wklywage >= 9 & wklywage <= 14.99) & (year ==1950 & nb==1) *replace wba = 8.1 if (wklywage >= 15 & wklywage <= 20.99) & (year ==1950 & nb==1) *replace wba = 10.2 if (wklywage >= 21 & wklywage <= 26.99) & (year ==1950 & nb==1) *replace wba = 12.3 if (wklywage >= 27 & wklywage <= 33.99) & (year ==1950 & nb==1) *replace wba = 14.4 if (wklywage >= 34 & wklywage <= 47.99) & (year ==1950 & nb==1) *replace wba = 16.2 if (wklywage >= 48) & (year ==1950 & nb==1) *See appendix for calculation replace duration = 14.7 if year == 1950 & nb ==1 *incorporating difference between ME and NB in dependent allowance [assuming prob(child) = .5] replace wba = 4.5 if (wklywage < 9) & (year ==1950 & nb==1) replace wba = 6.75 if (wklywage >= 9 & wklywage <= 14.99) & (year ==1950 & nb==1) replace wba = 9.15 if (wklywage >= 15 & wklywage <= 20.99) & (year ==1950 & nb==1) replace wba = 11.55 if (wklywage >= 21 & wklywage <= 26.99) & (year ==1950 & nb==1) replace wba = 13.95 if (wklywage >= 27 & wklywage <= 33.99) & (year ==1950 & nb==1) replace wba = 16.35 if (wklywage >= 34 & wklywage <= 47.99) & (year ==1950 & nb==1) replace wba = 18.6 if (wklywage >= 48) & (year ==1950 & nb==1) ***** *1960 ***** *replace wba = 0 if (wklywage < 9) & (year ==1960 & nb==1) *replace wba = 6 if (wklywage >= 9 & wklywage <= 14.99) & (year ==1960 & nb==1) *replace wba = 9 if (wklywage >= 15 & wklywage <= 20.99) & (year ==1960 & nb==1) *replace wba = 11 if (wklywage >= 21 & wklywage <= 26.99) & (year ==1960 & nb==1) *replace wba = 13 if (wklywage >= 27 & wklywage <= 32.99) & (year ==1960 & nb==1) *replace wba = 15 if (wklywage >= 33 & wklywage <= 38.99) & (year ==1960 & nb==1) *replace wba = 17 if (wklywage >= 39 & wklywage <= 44.99) & (year ==1960 & nb==1) *replace wba = 19 if (wklywage >= 43 & wklywage <= 50.99) & (year ==1960 & nb==1) *replace wba = 21 if (wklywage >= 51 & wklywage <= 56.99) & (year ==1960 & nb==1) *replace wba = 23 if (wklywage >= 57 & wklywage <= 62.99) & (year ==1960 & nb==1) *replace wba = 25 if (wklywage >= 63 & wklywage <= 68.99) & (year ==1960 & nb==1) *replace wba = 27 if (wklywage >= 69) & (year ==1960 & nb==1) *See appendix for calculation replace duration = 21 if year == 1960 & nb == 1 *incorporating difference between ME and NB in dependent allowance [assuming prob(child) = .5] replace wba = 0 if (wklywage < 9) & (year ==1960 & nb==1) replace wba = 7 if (wklywage >= 9 & wklywage <= 14.99) & (year ==1960 & nb==1) replace wba = 11.5 if (wklywage >= 15 & wklywage <= 20.99) & (year ==1960 & nb==1) replace wba = 13 if (wklywage >= 21 & wklywage <= 26.99) & (year ==1960 & nb==1) replace wba = 15.5 if (wklywage >= 27 & wklywage <= 32.99) & (year ==1960 & nb==1) replace wba = 18 if (wklywage >= 33 & wklywage <= 38.99) & (year ==1960 & nb==1) replace wba = 20.5 if (wklywage >= 39 & wklywage <= 44.99) & (year ==1960 & nb==1) replace wba = 22.5 if (wklywage >= 43 & wklywage <= 50.99) & (year ==1960 & nb==1) replace wba = 24.5 if (wklywage >= 51 & wklywage <= 56.99) & (year ==1960 & nb==1) replace wba = 26.5 if (wklywage >= 57 & wklywage <= 62.99) & (year ==1960 & nb==1) replace wba = 29 if (wklywage >= 63 & wklywage <= 68.99) & (year ==1960 & nb==1) replace wba = 31.5 if (wklywage >= 69) & (year ==1960 & nb==1) ***** *1970 ***** *replace wba = 0 if (wklywage < 20) & (year ==1970 & nb==1) *replace wba = 13 if (wklywage >= 20 & wklywage < 30) & (year ==1970 & nb==1) *replace wba = 16 if (wklywage >= 30 & wklywage < 40) & (year ==1970 & nb==1) *replace wba = 19 if (wklywage >= 40 & wklywage < 50) & (year ==1970 & nb==1) *replace wba = 22 if (wklywage >= 50 & wklywage < 60) & (year ==1970 & nb==1) *replace wba = 26 if (wklywage >= 60 & wklywage < 70) & (year ==1970 & nb==1) *replace wba = 30 if (wklywage >= 70 & wklywage < 80) & (year ==1970 & nb==1) *replace wba = 34 if (wklywage >= 80 & wklywage < 90) & (year ==1970 & nb==1) *replace wba = 38 if (wklywage >= 90 & wklywage < 100) & (year ==1970 & nb==1) *replace wba = 42 if (wklywage >= 100) & (year ==1970 & nb==1) *See appendix replace duration = 21 if year == 1970 & nb == 1 *incorporating difference between ME and NB in dependent allowance [assuming prob(child) = .5] replace wba = 0 if (wklywage < 20) & (year ==1970 & nb==1) replace wba = 15 if (wklywage >= 20 & wklywage < 30) & (year ==1970 & nb==1) replace wba = 18.5 if (wklywage >= 30 & wklywage < 40) & (year ==1970 & nb==1) replace wba = 22 if (wklywage >= 40 & wklywage < 50) & (year ==1970 & nb==1) replace wba = 25.5 if (wklywage >= 50 & wklywage < 60) & (year ==1970 & nb==1) replace wba = 29.5 if (wklywage >= 60 & wklywage < 70) & (year ==1970 & nb==1) replace wba = 34 if (wklywage >= 70 & wklywage < 80) & (year ==1970 & nb==1) replace wba = 38.5 if (wklywage >= 80 & wklywage < 90) & (year ==1970 & nb==1) replace wba = 43 if (wklywage >= 90 & wklywage < 100) & (year ==1970 & nb==1) replace wba = 47.5 if (wklywage >= 100) & (year ==1970 & nb==1) ***** *1980 ***** replace wba = 0.6 * wklywage if (year == 1980 & nb==1 & wklywage < 290) replace wba = 174 if (year == 1980 & nb == 1 & wklywage >= 290) replace duration = 20 if year == 1980 & nb == 1 ***** *1990 ***** replace wba = 0.6 * wklywage if (year == 1990 & nb ==1 & wklywage < 640) replace wba = 384 if (year == 1990 & nb ==1 & wklywage >= 640) replace duration = 20 if year == 1990 & nb == 1 ******************************************* ******************************************* *** *ME *** *first generate base period (one year) earnings: gen bpe=30*wklywage *next generate high quarter earnings: gen hqe=13*wklywage ***** *1940 ***** replace wba = 0 if bpe < 144 & (year == 1940 & me ==1) replace wba = 3 if bpe >= 144 & bpe <=185.41 & (year == 1940 & me ==1) replace wba = 3.5 if bpe > 185.42 & bpe <=228.24 & (year == 1940 & me ==1) replace wba = 4 if bpe > 228.25 & bpe <=272.63 & (year == 1940 & me ==1) replace wba = 4.5 if bpe > 272.64 & bpe <=318.58 & (year == 1940 & me ==1) replace wba = 5 if bpe > 318.59 & bpe <=366.09 & (year == 1940 & me ==1) replace wba = 5.5 if bpe > 366.1 & bpe <=415.16 & (year == 1940 & me ==1) replace wba = 6 if bpe > 415.17 & bpe <=465.78 & (year == 1940 & me ==1) replace wba = 6.5 if bpe > 465.79 & bpe <=517.82 & (year == 1940 & me ==1) replace wba = 7 if bpe > 517.83 & bpe <=571.42 & (year == 1940 & me ==1) replace wba = 7.5 if bpe > 571.43 & bpe <=626.57 & (year == 1940 & me ==1) replace wba = 8 if bpe > 626.58 & bpe <=683.28 & (year == 1940 & me ==1) replace wba = 8.5 if bpe > 683.29 & bpe <=741.54 & (year == 1940 & me ==1) replace wba = 9 if bpe > 741.55 & bpe <=801.37 & (year == 1940 & me ==1) replace wba = 9.5 if bpe > 801.38 & bpe <=862.61 & (year == 1940 & me ==1) replace wba = 10 if bpe > 862.62 & bpe <=925.41 & (year == 1940 & me ==1) replace wba = 10.5 if bpe > 925.42 & bpe <=989.77 & (year == 1940 & me ==1) replace wba = 11 if bpe > 989.78 & bpe <=1055.69 & (year == 1940 & me ==1) replace wba = 11.5 if bpe > 1055.7 & bpe <=1123.16 & (year == 1940 & me ==1) replace wba = 12 if bpe > 1123.17 & bpe <=1192.19 & (year == 1940 & me ==1) replace wba = 12.5 if bpe > 1192.2 & bpe <=1262.64 & (year == 1940 & me ==1) replace wba = 13 if bpe > 1262.65 & bpe <=1334.64 & (year == 1940 & me ==1) replace wba = 13.5 if bpe > 1334.65 & bpe <=1408.20 & (year == 1940 & me ==1) replace wba = 14 if bpe > 1408.21 & bpe <=1483.32 & (year == 1940 & me ==1) replace wba = 14.5 if bpe > 1483.33 & bpe <=1559.99 & (year == 1940 & me ==1) replace wba = 15 if bpe >= 1560 & (year == 1940 & me ==1) replace duration = 16 if year == 1940 & me == 1 ***** *1950 ***** replace wba = 0 if bpe < 300 & (year == 1950 & me ==1) replace wba = 6 if bpe >= 300 & bpe <=432.50 & (year == 1950 & me ==1) replace wba = 7 if bpe > 432.50 & bpe <=565.00 & (year == 1950 & me ==1) replace wba = 8 if bpe > 565 & bpe <=697.5 & (year == 1950 & me ==1) replace wba = 9 if bpe > 697.5 & bpe <=830 & (year == 1950 & me ==1) replace wba = 10 if bpe > 830 & bpe <=962.5 & (year == 1950 & me ==1) replace wba = 11 if bpe > 962.5 & bpe <=1095 & (year == 1950 & me ==1) replace wba = 12 if bpe > 1095 & bpe <=1227.5 & (year == 1950 & me ==1) replace wba = 13 if bpe > 1227.5 & bpe <=1360 & (year == 1950 & me ==1) replace wba = 14 if bpe > 1360 & bpe <=1492.5 & (year == 1950 & me ==1) replace wba = 15 if bpe > 1492.5 & bpe <=1625 & (year == 1950 & me ==1) replace wba = 16 if bpe > 1625 & bpe <=1757.5 & (year == 1950 & me ==1) replace wba = 17 if bpe > 1757.5 & bpe <=1890 & (year == 1950 & me ==1) replace wba = 18 if bpe > 1890 & bpe <=2022.5 & (year == 1950 & me ==1) replace wba = 19 if bpe > 2022.5 & bpe <=2155 & (year == 1950 & me ==1) replace wba = 20 if bpe > 2155 & bpe <=2287.5 & (year == 1950 & me ==1) replace wba = 21 if bpe > 2287.5 & bpe <=2420 & (year == 1950 & me ==1) replace wba = 22 if bpe > 2420 & bpe <=2552.5 & (year == 1950 & me ==1) replace wba = 23 if bpe > 2552.5 & bpe <=2685 & (year == 1950 & me ==1) replace wba = 24 if bpe > 2685 & bpe <=2817.5 & (year == 1950 & me ==1) replace wba = 25 if bpe > 2817.5 & bpe <=2950 & (year == 1950 & me ==1) replace duration = 20 if year == 1950 & me == 1 ***** *1960 ***** replace wba = 0 if bpe < 300 & (year == 1960 & me ==1) replace wba = 7 if bpe >= 300 & bpe <=399.99 & (year == 1960 & me ==1) replace wba = 8 if bpe >= 400 & bpe <=499.99 & (year == 1960 & me ==1) replace wba = 9 if bpe >= 500 & bpe <=599.99 & (year == 1960 & me ==1) replace wba = 10 if bpe >= 600 & bpe <=699.99 & (year == 1960 & me ==1) replace wba = 11 if bpe >= 700 & bpe <=799.99 & (year == 1960 & me ==1) replace wba = 12 if bpe >= 800 & bpe <=899.99 & (year == 1960 & me ==1) replace wba = 13 if bpe >= 900 & bpe <=999.99 & (year == 1960 & me ==1) replace wba = 14 if bpe >= 1000 & bpe <=1099.99 & (year == 1960 & me ==1) replace wba = 15 if bpe >= 1100 & bpe <=1199.99 & (year == 1960 & me ==1) replace wba = 16 if bpe >= 1200 & bpe <=1299.99 & (year == 1960 & me ==1) replace wba = 17 if bpe >= 1300 & bpe <=1399.99 & (year == 1960 & me ==1) replace wba = 18 if bpe >= 1400 & bpe <=1499.99 & (year == 1960 & me ==1) replace wba = 19 if bpe >= 1500 & bpe <=1599.99 & (year == 1960 & me ==1) replace wba = 20 if bpe >= 1600 & bpe <=1699.99 & (year == 1960 & me ==1) replace wba = 21 if bpe >= 1700 & bpe <=1799.99 & (year == 1960 & me ==1) replace wba = 22 if bpe >= 1800 & bpe <=1899.99 & (year == 1960 & me ==1) replace wba = 23 if bpe >= 1900 & bpe <=1999.99 & (year == 1960 & me ==1) replace wba = 24 if bpe >= 2000 & bpe <=2099.99 & (year == 1960 & me ==1) replace wba = 25 if bpe >= 2100 & bpe <=2199.99 & (year == 1960 & me ==1) replace wba = 26 if bpe >= 2200 & bpe <=2299.99 & (year == 1960 & me ==1) replace wba = 27 if bpe >= 2300 & bpe <=2399.99 & (year == 1960 & me ==1) replace wba = 28 if bpe >= 2400 & bpe <=2499.99 & (year == 1960 & me ==1) replace wba = 29 if bpe >= 2500 & bpe <=2599.99 & (year == 1960 & me ==1) replace wba = 30 if bpe >= 2600 & bpe <=2699.99 & (year == 1960 & me ==1) replace wba = 31 if bpe >= 2700 & bpe <=2799.99 & (year == 1960 & me ==1) replace wba = 32 if bpe >= 2800 & bpe <=2899.99 & (year == 1960 & me ==1) replace wba = 33 if bpe >= 2900.99 & (year == 1960 & me ==1) replace duration = 20 if year == 1960 & me ==1 ***** *1970 ***** replace wba = (1/25)*hqe if (year == 1970 & me ==1) replace wba = 51 if (wba>51 & year==1970 & me ==1) replace wba = 10 if (wba<10 & year==1970 & me ==1) replace wba=0 if bpe<600 & year==1970 & me==1 ***** *1980 ***** replace wba = (1/22)*hqe if (year == 1980 & me ==1) replace wba = 96 if (wba>96 & year==1980 & me ==1) replace wba = 12 if (wba<12 & year==1980 & me ==1) replace wba=0 if bpe<900 & year==1980 & me==1 ***** *1990 ***** replace wba = (1/22)*hqe if (year == 1990 & me ==1) replace wba = 180 if (wba>180 & year==1990 & me ==1) replace wba = 31 if (wba<31 & year==1990 & me ==1) replace wba=0 if bpe<2081 & year==1990 & me==1 *************************** *Total benefits calculation *************************** *For NB (all years) and ME (1940,50,60) gen benefits = wba*duration *For ME (1970, 80, 90) replace benefits = .3333*bpe if me==1 & (year==1970 | year==1980 | year==1990) *apply max ui benefit rules in ME for 1970 to 1990 *Can't collect all benefits so need to create new maximums replace benefits = 1020 if benefits > 1020 & me ==1 & year == 1970 replace benefits = 1920 if benefits > 1920 & me ==1 & year == 1980 replace benefits = 3600 if benefits > 3600 & me ==1 & year == 1990 gen realdur = benefits/wba if me==1 & (year==1970 | year==1980 | year==1990) tab realdur ************************************** *Apply industry eligibility exclusions ************************************** *** *ME *** replace benefits = 0 if agric == 1 & me ==1 replace benefits = 0 if govt == 1 & me ==1 & year < 1980 *** *NB *** replace benefits = 0 if agric ==1 & nb ==1 & year < 1960 replace benefits = 0 if govt == 1 & nb==1 & year < 1960 ******************** *Income differential ******************** gen partinc = (wklywage * 30) + benefits gen fullinc = wklywage * 52 gen y_ratio = partinc/fullinc ************************************** ************************************** log using AggReg30, append drop if industry == "All" *create industry share variables: egen OBS=sum(obs), by(gender country year) *number of obs each year: *table country year if female==0, c(mean OBS) *table country year if female==1, c(mean OBS) gen Ishare=obs/OBS sort gender country industry year *list gender country industry year Ishare *************** *TABLES 1 AND 2: means of tax policy and outcomes by gender, country and year: sort gender me year *policies: table me year if female==0 [aw=obs], c(mean y_ratio) table me year if female==1 [aw=obs], c(mean y_ratio) *outcomes: table me year if female==0 [aw=obs], c(mean partyear) table me year if female==1 [aw=obs], c(mean partyear) *********************************************** *Regressions *********************************************** *take the log of the income ratio: replace y_ratio = log(y_ratio) gen byte nb1950 = nb*y1950 gen byte nb1960 = nb*y1960 gen byte nb1970 = nb*y1970 gen byte nb1980 = nb*y1980 gen byte nb1990 = nb*y1990 *ind-nb: gen byte agric_nb = agric*nb gen byte const_nb = const*nb gen byte finance_nb = finance*nb gen byte govt_nb = govt*nb gen byte primary_nb = primary*nb gen byte services_nb = services*nb gen byte trade_nb = trade*nb gen byte trans_nb = trans*nb *Main Specification: *MEN: reg partyear y_ratio nb agric const finance govt primary services trade trans agric_nb-trans_nb /* */ y1950 y1960 y1970 y1980 y1990 if female==0 [aw=Ishare], robust *WOMEN: reg partyear y_ratio nb agric const finance govt primary services trade trans agric_nb-trans_nb /* */ y1950 y1960 y1970 y1980 y1990 if female==1 [aw=Ishare], robust *Adding region*year: *MEN: reg partyear y_ratio nb agric const finance govt primary services trade trans agric_nb-trans_nb /* */ y1950 y1960 y1970 y1980 y1990 nb1950-nb1990 if female==0 [aw=Ishare], robust *WOMEN: reg partyear y_ratio nb agric const finance govt primary services trade trans agric_nb-trans_nb/* */ y1950 y1960 y1970 y1980 y1990 nb1950-nb1990 if female==1 [aw=Ishare], robust *Removing weights from main spec: *MEN: reg partyear y_ratio nb agric const finance govt primary services trade trans agric_nb-trans_nb /* */ y1950 y1960 y1970 y1980 y1990 if female==0 , robust *WOMEN: reg partyear y_ratio nb agric const finance govt primary services trade trans agric_nb-trans_nb /* */ y1950 y1960 y1970 y1980 y1990 if female==1 , robust