use "C:\Users\L.J\Desktop\cces 2018\CCES2018_OUTPUT.dta"

* racism measures
tab1 CC18_422a CC18_422b, mi
pwcorr CC18_422a CC18_422b
gen racism2 = CC18_422a - CC18_422b
tab racism2
replace racism2 = (racism2+4)/8
sum racism2
pwcorr racism2 CC18_422a CC18_422b

* racial resentment
tab1 CC18_422e CC18_422f CC18_422g CC18_422h
tab1 CC18_422e CC18_422f CC18_422g CC18_422h, nol
alpha CC18_422e CC18_422f CC18_422g CC18_422h, item min(2) gen(rresent)
sum rresent
replace rresent = (rresent-r(min))/(r(max)-r(min))
sum rresent

* sexism measure
tab1 CC18_422c CC18_422d
pwcorr CC18_422c CC18_422d
gen sexism2 = - CC18_422c + CC18_422d
tab sexism2
replace sexism2 = (sexism2+4)/8
sum sexism2
pwcorr sexism2 CC18_422c CC18_422d

* environmental outcome variable
tab1 CC18_415a CC18_415b CC18_415c CC18_415d
tab1 CC18_415a CC18_415b CC18_415c CC18_415d, nol
pwcorr CC18_415a CC18_415b CC18_415c CC18_415d

gen ENVcarbon = 2 - CC18_415a
tab CC18_415a ENVcarbon, mi

gen ENVfuel = CC18_415b - 1
tab CC18_415b ENVfuel, mi

gen ENVrenew = 2 - CC18_415c
tab CC18_415c ENVrenew, mi

gen ENVepa = 2 - CC18_415d
tab CC18_415d ENVepa, mi

gen env4 = ENVcarbon + ENVfuel + ENVrenew + ENVepa
tab env4
gen env4_01 = env4/4
sum env4_01

* Controls
tab gender_post
gen female = gender_post - 1
tab gender_post female

tab race, mi
tab race, mi nol
gen Rwhite = 0
replace Rwhite = 1 if race==1
tab race Rwhite, mi

sum birthyr_post
gen age = 2018 - birthyr_post
sum age
replace age = (age-18)/(95-18)
sum age

tab educ
tab educ, nol
gen educ6 = (educ-1)/5
sum educ6

tab CC18_421a, gen(PID)
rename PID1 Pdem
rename PID2 Pgop
rename PID3 Pind
rename PID4 Pother
tab CC18_421a Pdem, mi
tab CC18_421a Pgop, mi
tab CC18_421a Pind, mi
tab CC18_421a Pother, mi

tab ideo5
tab ideo5, nol
tab ideo5, gen(ideology)
rename ideology1 ideo_libvery
rename ideology2 ideo_lib
rename ideology3 ideo_mod
rename ideology4 ideo_cons
rename ideology5 ideo_consvery
rename ideology6 ideo_notsure
tab ideo5 ideo_libvery, mi
tab ideo5 ideo_lib, mi
tab ideo5 ideo_mod, mi
tab ideo5 ideo_cons, mi
tab ideo5 ideo_consvery, mi
tab ideo5 ideo_notsure, mi

tab faminc_new 

* regressions
sum env4 racism2 rresent sexism2 female Rwhite age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure

reg           env4 racism2 sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
fracreg logit env4_01 racism2 sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(racism2=0 sexism2=0)
margins, atmeans at(racism2=1 sexism2=1)

logit ENVcarbon racism2 sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(racism2=0 sexism2=0)
margins, atmeans at(racism2=1 sexism2=1)
margins, atmeans at(sexism2=0 sexism2=1)
logit ENVfuel   racism2 sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(racism2=0 sexism2=0)
margins, atmeans at(racism2=1 sexism2=1)
margins, atmeans at(sexism2=0 sexism2=1)
logit ENVrenew  racism2 sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(racism2=0 sexism2=0)
margins, atmeans at(racism2=1 sexism2=1)
margins, atmeans at(sexism2=0 sexism2=1)
logit ENVepa    racism2 sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(racism2=0 sexism2=0)
margins, atmeans at(racism2=1 sexism2=1)
margins, atmeans at(sexism2=0 sexism2=1)

logit ENVcarbon rresent sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(rresent=0 sexism2=0)
margins, atmeans at(rresent=1 sexism2=1)
margins, atmeans at(rresent=0 rresent=1)
logit ENVfuel   rresent sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(rresent=0 sexism2=0)
margins, atmeans at(rresent=1 sexism2=1)
margins, atmeans at(rresent=0 rresent=1)
logit ENVrenew  rresent sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(rresent=0 sexism2=0)
margins, atmeans at(rresent=1 sexism2=1)
margins, atmeans at(rresent=0 rresent=1)
logit ENVepa    rresent sexism2 female        age educ6 Pdem Pgop Pind Pother ideo_libvery ideo_lib ideo_mod ideo_cons ideo_consvery ideo_notsure i.faminc_new if Rwhite==1 [pw=commonpostweight]
margins, atmeans at(rresent=0 sexism2=0)
margins, atmeans at(rresent=1 sexism2=1)
margins, atmeans at(rresent=0 rresent=1)