********************************************************************************************************************************************
********************************************************************************************************************************************
*
* Replication File: The Political Conditioning of Subjective Economic Evaluations: The Role of Party Discourse
*
* Sergi Pardos-Prado (sergi.pardos@merton.ox.ac.uk) Merton College - University of Oxford
* Iņaki Sagarzazu (inaki.sagarzazu@glasgow.ac.uk) University of Glasgow
*
********************************************************************************************************************************************
********************************************************************************************************************************************

cd "C:\Users\is88h\Dropbox\PardosSagarzazu\FIRST_PAPER_EconVoting\BJPS_submission\FINAL_VERSION\replication set\"

log using "PardosSagarzazu2014-ReplicationLog.smcl", replace

clear

use "PardosSagarzazu2014_filanDataset.dta"




********************************************************************************************************************************************
*                                                                MAIN MODELS                                                               *
********************************************************************************************************************************************

/*** Table 6- Direct effects 1996-2004 ***/

gllamm  econ_current socprop_lag1 popprop_lag1 if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store direct1

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred ///
	if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)
	
est store direct2

gllamm  econ_current socprop_lag1 popprop_lag1 lrscale_centred vote_psoe /*
*/ vote_pp if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store direct3

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store direct4

est table direct1 direct2 direct3 direct4, stats(N ll aic bic) b(%9.4g) se(%9.4g)


/*** Table 7- Direct effects 2004-2011 ***/

gllamm  econ_current socprop_lag1 popprop_lag1 if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store direct5

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred ///
	if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store direct6	
	
gllamm  econ_current socprop_lag1 popprop_lag1 lrscale_centred vote_psoe /*
*/ vote_pp if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store direct7

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store direct8

est table direct5 direct6 direct7 direct8, stats(N ll aic bic) b(%9.4g) se(%9.4g)

/*** Figure 6- Change in Probability of Subjective Economic Evaluations ***/

do "figure6.do"
 
log close

********************************************************************************************************************************************
*                                                              ONLINE APPENDIX                                                             *
********************************************************************************************************************************************


log using "PardosSagarzazu2014-ReplicationLog_onlineAppendix.smcl", replace

clear

use "PardosSagarzazu2014_finalDataset.dta"

sort time


/*** Table A.1- Summary statistics ***/

sum time econ_current econ_retro socprop_lag1 popprop_lag1 legislatura missing /*
*/ unemp_lag1_centred infl_lag1_centred gdp_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred  



/*** Table A.2- Fully specified models - GDP as a macro-economic variable ***/


gllamm  econ_current socprop_lag1 popprop_lag1 gdp_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store gdp1

gllamm  econ_current socprop_lag1 popprop_lag1 gdp_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store gdp2

est table gdp1 gdp2, stats(N ll aic bic) b(%9.4g) se(%9.4g)


/*** Table A.3- Replication of fully-specified models predicting retrospective economic evaluations ***/

gllamm  econ_retro socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store retro1

gllamm  econ_retro socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store retro2


est table retro1 retro2, stats(N ll aic bic) b(%9.4g) se(%9.4g)



/*** Table A.4- Replication of fully specified models controlling for total economic attention in Parliament ***/


gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred total if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store total1

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred total if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store total2


est table total1 total2, stats(N ll aic bic) b(%9.4g) se(%9.4g)



/*** Table A.5- Replication of fully specified models including a time trend ***/


gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred time if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store trend1

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred time if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store trend2



/*** Table A.6- Replication of model 4 in Table 4 with lagged monthly average of dependent
variable as a predictor ***/


gllamm  econ_current econ_current_lag1 socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store lagged4


est table lagged4, stats(N ll aic bic) b(%9.4g) se(%9.4g)



/*** Table A.7- Conditional effects of party discourse and macro-economic indicators ***/


gllamm  econ_current socprop_lag1  unemp_lag1_centred  socprop_unemp_lag1 popprop_lag1 infl_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro1

gllamm  econ_current popprop_lag1 unemp_lag1_centred  popprop_unemp_lag1 socprop_lag1  infl_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro2

gllamm  econ_current socprop_lag1 infl_lag1_centred  socprop_infl_lag1 popprop_lag1 unemp_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro3

gllamm  econ_current popprop_lag1 infl_lag1_centred  popprop_infl_lag1 socprop_lag1  unemp_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro4

gllamm  econ_current socprop_lag1 unemp_lag1_centred  socprop_unemp_lag1 popprop_lag1  infl_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro5

gllamm  econ_current popprop_lag1 unemp_lag1_centred  popprop_unemp_lag1 socprop_lag1  infl_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro6

gllamm  econ_current socprop_lag1 infl_lag1_centred  socprop_infl_lag1 popprop_lag1  unemp_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro7

gllamm  econ_current popprop_lag1 infl_lag1_centred  popprop_infl_lag1 socprop_lag1 unemp_lag1_centred lrscale_centred vote_psoe vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store macro8

est table macro1 macro2 macro3 macro4 macro5 macro6 macro7 macro8, stats(N ll aic bic) b(%9.4g) se(%9.4g)


/*** Table A.8- Replication of fully specified models per legislative term ***/

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura==1 & missing==0, i(time) nip(15) adapt link(ologit)

est store leg1

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura==2 & missing==0, i(time) nip(15) adapt link(ologit)

est store leg2


gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura==3 & missing==0, i(time) nip(15) adapt link(ologit)

est store leg3

gllamm  econ_current socprop_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ vote_pp gender_centred age_centred educ_centred unemployed_centred if legislatura==4 & missing==0, i(time) nip(15) adapt link(ologit)

est store leg4

est table leg1 leg2 leg3 leg4, stats(N ll aic bic) b(%9.4g) se(%9.4g)

/*** Table A.9- Conditional effects of party discourse and vote choice ***/


gllamm  econ_current socprop_lag1  vote_psoe  votepsoe_proppsoe_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store vote1

gllamm  econ_current popprop_lag1  vote_pp  votepp_proppp_lag1 socprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura<3 & missing==0, i(time) nip(15) adapt link(ologit)

est store vote2

gllamm  econ_current socprop_lag1  vote_psoe  votepsoe_proppsoe_lag1 popprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_pp /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store vote3

gllamm  econ_current popprop_lag1  vote_pp  votepp_proppp_lag1 socprop_lag1 unemp_lag1_centred infl_lag1_centred lrscale_centred vote_psoe /*
*/ gender_centred age_centred educ_centred unemployed_centred if legislatura>2 & missing==0, i(time) nip(15) adapt link(ologit)

est store vote4

est table vote1 vote2 vote3 vote4, stats(N ll aic bic) b(%9.4g) se(%9.4g)



/*** Figure A.1- ***/

do "figureA1.do"
log close