*** STATA Program to run regressions for Sachs and Warner: "Sources of Slow growth
*** in African Economies", Journal of African Economies, Dec 1997 pp. 335-76.
*** Page numbers refer to this publication.
*** The data set to accompany this is called africa.dta, and contains brief descriptions
*** of the data.  The paper has more complete descriptions.  The variable zzzz is the
*** interaction variable between openness and initial income (zzzz=open6590*lgdpea65).

#delimit ;
log using c:\africa\africa.log, replace ;

*** Preliminary regression to identify outliers ;
drop dfits ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop ;
fpredict dfits, dfits ;
list country dfits if abs(dfits)>0.9 & dfits~=. ;

*** Regressions for Appendix table A1 page 366 ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop           ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop ssafrica  ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop g7089n    ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop ethling   ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop savy7089  ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop infl6590  ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop ssafrica g7089n ethling savy7089 infl6590 ;
test ssafrica g7089n ethling savy7089 infl6590 ;

*** Regressions for table 2 page 345 ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop if abs(dfits)<0.9 ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop ssafrica if abs(dfits)<0.9 ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop g7089n if abs(dfits)<0.9   ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop ethling if abs(dfits)<0.9  ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop savy7089 if abs(dfits)<0.9 ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop infl6590 if abs(dfits)<0.9 ;
fit gr6590 lgdpea65 zzzz open6590 access lifee1l lifee1l2 cgb7090 tropics icrge80 sxpr geap_pop ssafrica g7089n ethling savy7089 infl6590 if abs(dfits)<0.9 ;
test ssafrica g7089n ethling savy7089 infl6590 ;