*   This do file replicates 
*   Thomas Plümper and Christina J. Schneider 
*   Discriminatory EU Membership and the Redistribution of Enlargement Gains 
*   Journal of Conflict Resolution 2007




*________________________________________________________________________________________________




*stage 1

* model e1
probit demdisdum  totagrn totagro sizen contribution if  agriculture==1
predict ste_c, stdp
predict yhat_c
gen yhat_cap=yhat_c*agriculture


*model e2
probit demdisdum  bipn_eu100 totfundvor sizen erwerbindn erwerblandn contribution  if structuralfunds==1
predict ste_s, stdp
predict yhat_s
gen yhat_sf=yhat_s*structuralfunds


* model e3
probit  demdisdum bipn_eu100  distance foreign erwerbindo erwerbindn unempln unemplo if  freedomofmovement==1
predict ste_a, stdp
predict yhat_a
gen yhat_an=yhat_a*freedomofmovement

*ologit ord_outcome ceiling  perccouncil_change polity importfromeu share_exp  yhat_cap yhat_an yhat_sf if fisheries==0
*ologit ord_outcome yhat_cap yhat_an yhat_sf if fisheries==0


*__________________________________________________________________________________________________

* stage 1 corrected

* model e4
probit demdisdum  totagrn totagro sizen contribution ste_a ste_s if  agriculture==1
predict yhat_ccor
gen yhat_cap2=yhat_ccor*agriculture

*model e5
probit demdisdum  bipn_eu100 totfundvor sizen erwerbindn erwerblandn contribution ste_c ste_a if structuralfunds==1
predict yhat_scor
gen yhat_sf2=yhat_scor*structuralfunds


*model e6
probit  demdisdum bipn_eu100  distance foreign erwerbindo erwerbindn unempln unemplo ste_c ste_s if  freedomofmovement==1
predict yhat_acor
gen yhat_an2=yhat_acor*freedomofmovement


*_________________________________________________________________________________________________


*model 3a..3c

logit cap_dis ceiling perccouncil_change importfromeu share_exp  yhat_ccor if agriculture==1 & sample==1
logit fm_dis ceiling perccouncil_change importfromeu share_exp  yhat_acor if freedomofmovement==1 & sample==1
logit sf_dis ceiling perccouncil_change importfromeu share_exp  yhat_scor if structuralfunds==1 & sample==1


drop ste_c- yhat_an2