/* creates first and long difs for Table 1 */
set more 1

drop _all
set maxobs 70000
set matsize 250
use caves
keep if flag3==0
gen dfi=100-x11
replace dfi=dfi/100
gen dfisectl = dfi*dfilax3
gen dfisects = dfi*dfisax3
tab year, gen(y)
tab sic, gen(sfour)
sort test4 year
quietly by test4: gen lagl4 = l4[_n-1]
replace l4 = l4 - lagl4
quietly by test4: gen lagl5 = l5[_n-1]
replace l5 = l5 - lagl5
quietly by test4: gen lagi91 = i91[_n-1]
replace i91 = i91 - lagi91
quietly by test4: gen lagmat = mat[_n-1]
replace mat = mat - lagmat
quietly by test4: gen lags1  =  s1[_n-1]
replace s1  = s1  - lags1
quietly by test4: gen lagdfi = dfi[_n-1]
replace dfi = dfi - lagdfi
quietly by test4: gen ldfilx3 = dfilax3[_n-1]
replace dfilax3 = dfilax3 - ldfilx3
quietly by test4: gen ldfisecl = dfisectl[_n-1]
replace dfisectl = dfisectl - ldfisecl

log using table1cols5678.log, replace

reg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hreg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hareg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14, absorb(test4)

drop _all
set maxobs 70000
set matsize 250
use caves
keep if flag3==0
gen dfi=100-x11
replace dfi=dfi/100
gen dfisectl = dfi*dfilax3
gen dfisects = dfi*dfisax3
tab year, gen(y)
tab sic, gen(sfour)
sort test4 year
quietly by test4: gen lagl4 = l4[_n-2]
replace l4 = l4 - lagl4
quietly by test4: gen lagl5 = l5[_n-2]
replace l5 = l5 - lagl5
quietly by test4: gen lagi91 = i91[_n-2]
replace i91 = i91 - lagi91
quietly by test4: gen lagmat = mat[_n-2]
replace mat = mat - lagmat
quietly by test4: gen lags1  =  s1[_n-2]
replace s1  = s1  - lags1
quietly by test4: gen lagdfi = dfi[_n-2]
replace dfi = dfi - lagdfi
quietly by test4: gen ldfilx3 = dfilax3[_n-2]
replace dfilax3 = dfilax3 - ldfilx3
quietly by test4: gen ldfisecl = dfisectl[_n-2]
replace dfisectl = dfisectl - ldfisecl

reg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hreg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hareg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14, absorb(test4)


drop _all
set maxobs 70000
set matsize 250
use caves
keep if flag3==0
gen dfi=100-x11
replace dfi=dfi/100
gen dfisectl = dfi*dfilax3
gen dfisects = dfi*dfisax3
tab year, gen(y)
tab sic, gen(sfour)
sort test4 year
quietly by test4: gen lagl4 = l4[_n-3]
replace l4 = l4 - lagl4
quietly by test4: gen lagl5 = l5[_n-3]
replace l5 = l5 - lagl5
quietly by test4: gen lagi91 = i91[_n-3]
replace i91 = i91 - lagi91
quietly by test4: gen lagmat = mat[_n-3]
replace mat = mat - lagmat
quietly by test4: gen lags1  =  s1[_n-3]
replace s1  = s1  - lags1
quietly by test4: gen lagdfi = dfi[_n-3]
replace dfi = dfi - lagdfi
quietly by test4: gen ldfilx3 = dfilax3[_n-3]
replace dfilax3 = dfilax3 - ldfilx3
quietly by test4: gen ldfisecl = dfisectl[_n-3]
replace dfisectl = dfisectl - ldfisecl

reg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hreg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hareg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14, absorb(test4)

drop _all
set maxobs 70000
set matsize 250
use caves
keep if flag3==0
gen dfi=100-x11
replace dfi=dfi/100
gen dfisectl = dfi*dfilax3
gen dfisects = dfi*dfisax3
tab year, gen(y)
tab sic, gen(sfour)
sort test4 year
quietly by test4: gen lagl4 = l4[_n-4]
replace l4 = l4 - lagl4
quietly by test4: gen lagl5 = l5[_n-4]
replace l5 = l5 - lagl5
quietly by test4: gen lagi91 = i91[_n-4]
replace i91 = i91 - lagi91
quietly by test4: gen lagmat = mat[_n-4]
replace mat = mat - lagmat
quietly by test4: gen lags1  =  s1[_n-4]
replace s1  = s1  - lags1
quietly by test4: gen lagdfi = dfi[_n-4]
replace dfi = dfi - lagdfi
quietly by test4: gen ldfilx3 = dfilax3[_n-4]
replace dfilax3 = dfilax3 - ldfilx3
quietly by test4: gen ldfisecl = dfisectl[_n-4]
replace dfisectl = dfisectl - ldfisecl

reg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hreg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14
hareg s1 l4 l5 i91 mat dfilax3 dfi dfisectl y1-y14, absorb(test4)

log close