/*

*** This do file creates the replication results for 

Self-interest, foreign need and good governance: Are bilateral investment treaty programs similar to aid allocation?, Foreign Policy Analysis 2 (3), 2006, pp. 245-267 

Eric Neumayer (LSE)																			

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

*/

use "Article for Foreign Policy Analysis.dta", clear


quietly reg lngdp1995pc  lngdp1995 colsdeu colsuk colsfra colsita colsnth unrollgermany unrolluk unrollfrance unrollitaly unrollus unrollnetherlands unrollsweden unrolldenmark  usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0
su lngdp1995pc lngdp1995 distdeu distuk distfra distita distjpn distus distnth colsdeu colsuk colsfra colsita colsjpn colsnth unrollgermany unrolluk unrollfrance unrollitaly unrolljapan unrollus unrollnetherlands usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if e(sample)

stset year, id(country) failure(bitdgermany==1) origin( year==1960) enter(independence)
stcox lngdp1995pc distdeu lngdp1995   colsdeu  unrollgermany usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr
outreg using c:\table1, replace  3aster
capture drop sca*
capture drop sch*
quietly stcox lngdp1995pc distdeu lngdp1995   colsdeu  unrollgermany usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0 , scaledsch(sca*) schoenfeld(sch*)
stphtest, rank detail
stcox lngdp1995pc distdeu distdeulnyeardeu lngdp1995   colsdeu  unrollgermany usmilitaryaidshare secondenroli tradeextended tradeextendedlnyeardeu   politycorr leg_british  if inc_highoecd==0, robust nohr

stset year, id(country) failure(bitduk==1) origin( year==1974) enter(independence)
stcox lngdp1995pc distuk lngdp1995  colsuk  unrolluk usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr
outreg using c:\table1, append  3aster
capture drop sca*
capture drop sch*
quietly stcox lngdp1995pc distuk lngdp1995  colsuk  unrolluk usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, scaledsch(sca*) schoenfeld(sch*)
stphtest, rank detail
stcox lngdp1995pc distuk lngdp1995  colsuk  unrolluk usmilitaryaidshare usmilitaryaidsharelnyearuk secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr

stset year, id(country) failure(bitdfrance==1) origin( year==1960) enter(independence)
stcox lngdp1995pc distfra lngdp1995  colsfra  unrollfrance usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr
outreg using c:\table1, append  3aster
capture drop sca*
capture drop sch*
quietly stcox lngdp1995pc distfra lngdp1995  colsfra  unrollfrance usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, scaledsch(sca*) schoenfeld(sch*)
stphtest, rank detail

stset year, id(country) failure(bitditaly==1) origin( year==1963) enter(independence)
stcox lngdp1995pc distita lngdp1995  colsita  unrollitaly usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr
outreg using c:\table1, append  3aster
capture drop sca*
capture drop sch*
quietly stcox lngdp1995pc distita lngdp1995  colsita  unrollitaly usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0 , scaledsch(sca*) schoenfeld(sch*)
stphtest, rank detail
stcox lngdp1995pc distita lngdp1995  colsita  unrollitaly unrollitalylnyearita usmilitaryaidshare secondenroli tradeextended  politycorr leg_british leg_britishlnyearuk  if inc_highoecd==0, robust nohr

stset year, id(country) failure(bitdus==1) origin( year==1981) enter(independence)
stcox lngdp1995pc distus lngdp1995  unrollus usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr
outreg using c:\table1, append  3aster
capture drop sca*
capture drop sch*
quietly stcox lngdp1995pc distus lngdp1995  unrollus usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, scaledsch(sca*) schoenfeld(sch*)
stphtest, rank detail
stcox lngdp1995pc distus lngdp1995 lngdp1995lnyearus   unrollus usmilitaryaidshare secondenroli secondenrolilnyearus tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr

stset year, id(country) failure(bitdjapan==1) origin( year==1976) enter(independence)
stcox lngdp1995pc distjpn lngdp1995   colsjpn  unrolljapan usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr
outreg using c:\table1, append  3aster
capture drop sca*
capture drop sch*
quietly stcox lngdp1995pc distjpn lngdp1995   colsjpn  unrolljapan usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0 , scaledsch(sca*) schoenfeld(sch*)
stphtest, rank detail
stcox lngdp1995pc distjpn distjpnlnyearjpn lngdp1995   colsjpn  unrolljapan usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr

stset year, id(country) failure(bitdnetherlands==1) origin( year==1962) enter(independence)
stcox lngdp1995pc distnth lngdp1995  colsnth  unrollnetherlands usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0, robust nohr
outreg using c:\table1, append  3aster
capture drop sca*
capture drop sch*
quietly stcox lngdp1995pc distnth lngdp1995  colsnth  unrollnetherlands usmilitaryaidshare secondenroli tradeextended  politycorr leg_british  if inc_highoecd==0 , scaledsch(sca*) schoenfeld(sch*)
stphtest, rank detail
stcox lngdp1995pc distnth distnthlnyearnth lngdp1995  colsnth  unrollnetherlands unrollnetherlandslnyearnth usmilitaryaidshare secondenroli tradeextended  tradeextendedlnyearnth  politycorr leg_british  if inc_highoecd==0, robust nohr