/* weighted regs only */
/* examines the role of size */
/* used to generate table 3 in final version of paper */

set more 1

drop _all
set mem 400000
use venezuela
keep if flag3==0
gen dfi = (100 - x11)/100
gen dfisl = dfi*dfisectl
gen dfiss = dfi*dfisects
gen dfirl = dfi*dfilax3
gen dfirs = dfi*dfisax3
egen totl = sum(l6), by(year)
gen share = l6/totl
egen meanl6 = mean(l6), by(test4)
gen size = 1 if meanl6 ~=.  & meanl6 <=49 & meanl6 ~=0
replace size = 2 if meanl6 > 49 & meanl6 ~=.
compress


log using table3cols123567table4cols45.log, replace


set more 1


reg s1 l4 l5 i91 mat dfisl dfi dfisectl y2-y5 y7-y14 sfour1-sfour16 sfour18-sfour58  if size==1, robust
reg s1 l4 l5 i91 mat dfisl dfi dfisectl y2-y5 y7-y14 sfour1-sfour16 sfour18-sfour58  if size==2, robust
areg s1 l4 l5 i91 mat dfisl dfi dfisectl y2-y5 y7-y14 sfour1-sfour16 sfour18-sfour58 if size==1, absorb(test4) robust
areg s1 l4 l5 i91 mat dfisl dfi dfisectl y2-y5 y7-y14 sfour1-sfour16 sfour18-sfour58 if size==2, absorb(test4) robust

reg s1 l4 l5 i91 mat dfi dfisl dfirl dfilax3 dfisectl rwage elecp y1-y14 sfour1-sfour16 sfour18-sfour58 if size==1, robust
reg s1 l4 l5 i91 mat dfi dfisl dfirl dfilax3 dfisectl rwage elecp y1-y14 sfour1-sfour16 sfour18-sfour58 if size==2, robust

areg s1 l4 l5 i91 mat dfi dfisl dfirl dfilax3 dfisectl rwage elecp  y1-y14 [aweight=share] if size==1, absorb(test4) robust
gen z0 = _b[dfi]*dfi + _b[dfisl]*dfisl + _b[dfirl]*dfirl + _b[dfilax3]*dfilax3 + _b[dfisectl]*dfisectl
gen z0share = z0*share
areg s1 l4 l5 i91 mat dfi dfisl dfirl dfilax3 dfisectl rwage elecp  y1-y14 [aweight=share] if size==2, absorb(test4) robust
gen z = _b[dfi]*dfi + _b[dfisl]*dfisl + _b[dfirl]*dfirl + _b[dfilax3]*dfilax3  + _b[dfisectl]*dfisectl
gen zshare = z*share

sort year
collapse (sum) z0share zshare, by(year)
sum

log close