/** Benoit and Marsh 2008 example from Irish election of 2002 **/
use dail2002
gen spendXinc = spend_total * incumb
reg votes1st spend_total incumb minister spendXinc

use dail2002spending
list constID constituency namelast party votes1st incumb m spent in 6/28, clean
desc


/** Benoit and Marsh (2008) example **/
use PPMD_detail, clear
sample 20, count
list Country Party Dimension Scale Survey_Label_ID Score Vote_Share Election_Date, clean

use PPMD_detail, clear
table Party Dimension if Country=="IT":cntryLab & Scale==1 & Dimension<15, c(mean Score) format(%9.1f)
table Country Dimension if Dimension<5 & Country>60
ttest Score if Dimension>13, by(Scale)
reshape wide Score, i(Country Survey_Label_ID Party Vote_Share Scale) j(Dimension)
list Country Party Scale Survey_Label_ID Vote_Share Score1-Score4 in 1/10, clean

use PPMD_summary_day1, clear
// *** Treat Make EU Authority synonymous with EU Federalism
replace Mean = (21 - Mean) if (Dimension==24 | Dimension==18) & Scale==1
recode Dimension (18=24)
recode Dimension (25=24)
recode Dimension (4=24) if Country~="IE":cntryLab
// NOTE THIS COLLAPSES Privatization into Dereg
recode Dimension (3=22) 
reshape wide Mean, i(Country Party Scale) j(Dimension)
gen eu = (Country>=50)
label define eu 0 nonEU 1 EU
label values eu eu
graph twoway (qfitci Mean24 Mean13) (scatter Mean24 Mean13, msize(small) m(oh)) if Scale==1, xtitle(Left-Right) ytitle(EU Integration) legend(off)

graph twoway (lfitci Mean24 Mean22) (scatter Mean24 Mean22, msize(small) m(oh)) if Scale==1, xtitle(Dereg) ytitle(EU Integration) legend(off) by(eu)