/*

*** This do file creates the replication results for 

Does the 'resource curse' hold for growth in genuine income as well?, World Development, 32 (10), 2004, pp. 1627-1640

Eric Neumayer (LSE)																			

Please report any errors to e.neumayer@lse.ac.uk

*/

use "Sachswarner for WD article.dta", replace




*** Preliminary regression to check for outliers



fit gea7098 lgdpea70 sxp sopen

drop dfits

fpredict dfits, dfits

gsort -dfits

* list country dfits shcode6 if dfits~=.

drop excl1

generate excl1=0

replace excl1=1 if abs(dfits)> 2*((_result(3)+1)/(_result(1)))^(1/2)

list country dfits if dfits~=. & excl1==1



*** Basic regressions without excluding the outliers


*** Table I
fit gea7098 lgdpea70 sxp if excl1==0, beta
outreg using c:\table1, replace
mfx compute, eyex
fit gea7098 lgdpea70 sxp sopen if excl1==0, beta
outreg using c:\table1, append
mfx compute, eyex
fit gea7098 lgdpea70 sxp sopen linv7098 if excl1==0, beta
outreg using c:\table1, append
mfx compute, eyex
fit gea7098 lgdpea70 sxp sopen linv7098 rule8295 if excl1==0, beta
outreg using c:\table1, append
mfx compute, eyex
fit gea7098 lgdpea70 sxp sopen linv7098 rule8295 dtt7098 if excl1==0, beta
outreg using c:\table1, append
mfx compute, eyex



***** GENUINE INCOME (CONSUMPTION OF FIXED CAPITAL also SUBTRACTED) *****
*** Preliminary regression to check for outliers

*** Table I

fit genuine2gea7098 lgenuine2gdpea70 sxp if excl1==0, beta
outreg using c:\table2, replace
mfx compute, eyex
fit genuine2gea7098 lgenuine2gdpea70 sxp sopen if excl1==0, beta
outreg using c:\table2, append
mfx compute, eyex
fit genuine2gea7098 lgenuine2gdpea70 sxp sopen linv7098 if excl1==0, beta
outreg using c:\table2, append
mfx compute, eyex
fit genuine2gea7098 lgenuine2gdpea70 sxp sopen linv7098 rule8295 if excl1==0, beta
outreg using c:\table2, append
mfx compute, eyex
fit genuine2gea7098 lgenuine2gdpea70 sxp sopen linv7098 rule8295 dtt7098 if excl1==0, beta
outreg using c:\table2, append
mfx compute, eyex