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