*** DATA PREPARATION FOR VOTING ANALYSIS FOR BHPS WAVE Q

* (FROM LAB1_HIGHLIGHTS.DO)


use pid qsex qage qvote* qjbrgsc qjbgold qjbsoc qregion using $path3\qindresp.dta, clear
numlabel _all, add
tab qregion 
keep if qregion >= 1 & qregion <= 18
** Research question: How is voting influenced by current occupational class category in Britain
** To approach this, we can try out different voting outcomes and different class measures

** Derive 3 voting measures
tab qvote3
recode qvote4 -9=.m -8=.i -7=.p -2=.r -1=.d 11/17=.e
tab qvote4
gen convot=(qvote4==1) if !missing(qvote4) 
gen labvot=(qvote4==2) if !missing(qvote4)
gen leftvot=(qvote4==2 | qvote4==3 | qvote4==6) if !missing(qvote4)
summarize *vot

** Derive 5 class measures (excluding the armed forces in this example)
tab1 qjbrgsc qjbgold qjbsoc
recode qjbrgsc -9=.m -8=.i -1=.d 7=.a
gen rgsc2=(qjbrgsc==1 | qjbrgsc==2) if !missing(qjbrgsc)
recode qjbgold -9=.m -8=.i -1=.d 
replace qjbgold=.a if qjbrgsc==.a
gen gold2=(qjbgold==1 | qjbgold==2) if !missing(qjbgold)
recode qjbsoc -9=.m -8=.i -1=.d 
replace qjbsoc=.a if qjbrgsc==.a
gen socm=floor(qjbsoc/100) if !missing(qjbsoc) 

tab1 qjbrgsc rgsc2 qjbgold gold2 socm

** Other measures:
tab qsex
tab qage
recode qsex -7=.p
recode qage -9=.m 

** Analytical file
summarize convot labvot leftvot qage qsex qjbrgsc rgsc2 qjbgold gold2 socm
egen nmiss=rmiss(convot labvot leftvot qage qsex qjbrgsc rgsc2 qjbgold gold2 socm)
tab nmiss
keep if nmiss==0
summarize convot labvot leftvot qage qsex qjbrgsc rgsc2 qjbgold gold2 socm


*** Analysis taking advantage of Stata's 'est store': 

xi:logit convot qage i.qsex i.qjbrgsc 
est store con1
xi:logit convot qage i.qsex i.rgsc2 
est store con2
xi:logit convot qage i.qsex i.qjbgold 
est store con3
xi:logit convot qage i.qsex i.gold2 
est store con4
xi:logit convot qage i.qsex i.socm 
est store con5

xi:logit labvot qage i.qsex i.qjbrgsc 
est store lab1
xi:logit labvot qage i.qsex i.rgsc2 
est store lab2
xi:logit labvot qage i.qsex i.qjbgold 
est store lab3
xi:logit labvot qage i.qsex i.gold2 
est store lab4
xi:logit labvot qage i.qsex i.socm 
est store lab5

xi:logit leftvot qage i.qsex i.qjbrgsc 
est store left1
xi:logit leftvot qage i.qsex i.rgsc2 
est store left2
xi:logit leftvot qage i.qsex i.qjbgold 
est store left3
xi:logit leftvot qage i.qsex i.gold2 
est store left4
xi:logit leftvot qage i.qsex i.socm 
est store left5