clear
set mem 200000
use "C:\Users\John\Desktop\courses\masters\LAT_Latinobarometro2008_dta\Latinobarometro_2008_eng.dta"
tab2 sexo sexo
generate male=sexo==1
tab2 sexo male
generate argentina=idenpa==1
generate bolivia=idenpa==2
rename edad age
Q6ST. And over the next 12 months do you think that,
in general, the country’s economic situation will be
much better, a little better, about the same, a little
worse or much worse than now? (WAIT FOR ANSWER AND
TICK ONLY ONE)
Much better...... 1
A little better...... 2
About the same...... 3
A little worse...... 4
Much worse...... 5
DNK...... 8 DON’T READ
DNA...... 0
Q35ST.(SHOW CARD 7) I would like to know your opinion
about the following countries that I’m going to read.
Do you have a very good, good, bad or very bad opinion
of…... (READ EACH COUNTRY AND TICK ONE ALTERNATIVE FOR
EACH ONE)
VG G B VB DNK DNA
Q35ST.A. United States....1 2 3 4 8 0
Q35ST.B. European Union...1 2 3 4 8 0
Q35ST.C. Japan...... 1 2 3 4 8 0
Q35ST.D. China...... 1 2 3 4 8 0
Q35ST.E. Spain...... 1 2 3 4 8 0
Q35ST.F. Cuba...... 1 2 3 4 8 0
tab2 p6st p35st_a
tab2 p35st_a p35st_b
ren p35st_a attus
generate tv=s19a==1
generate fridge=s19b==1
generate wash=s19e==1
generate white=s11==6
rename s14 educ
generate pubins=s13==2
generate noins=s13==3
probit noins age male tv fridge wash educ white arge bol
probit noins age male tv fridge wash educ white arge bol if age>18 & age<97
generate agesq=age*age
generate lage=log(age)
probit noins age agesq male tv fridge wash educ white arge bol if age>18 & age<97
probit noins lage male tv fridge wash educ white arge bol if age>18 & age<97
oprobit attus age agesq male tv fridge wash educ white arge bol if age>18 & age<97 & attus<8
est store Eall
oprobit attus age agesq male tv fridge wash educ white arge bol if age>18 & age<97 & attus<8 & male==1
est store Em
oprobit attus age agesq male tv fridge wash educ white arge bol if age>18 & age<97 & attus<8 & male==0
est store Ef
est table Eall Ef Em, b(%6.4g) stfmt(%8.1g)varwidth(10) stats(N ll chi2 df_m aic) t style(noline)equations(1)
*GRAPHS
histogram attus, discrete percent ylabel(none, labsize(minuscule)) xtitle(, box bexpand) xscale(range(.1 .1)) xlabel(none, labsize(minuscule)) legend(off) ysize(20) xsize(20) fysize(200) fxsize(200) by(idenpa,title(Figure 1: Attitudes to USA,size(medsmall)) note(Histogram shows the proportions and then disapproving, position(6)) legend(off))
histogram attus if idenpa<3, discrete percent ylabel(none, labsize(minuscule)) xtitle(, box bexpand) xscale(range(.1 .1)) xlabel(none, labsize(minuscule)) legend(off) ysize(20) xsize(20) fysize(200) fxsize(200) by(idenpa,title(Figure 1: Attitudes to USA,size(medsmall)) note(Histogram shows the proportions and then disapproving, position(6)) legend(off))
histogram attus if argen==1 & attus<8
histogram attus if argen==1 & attus<8,kdensity
*SUMMARISE DATA
by idenpa: summ attus