* April 12, 2018
* Preliminary Descriptive Stats Brazil with Americas Barometer

* Open Data Set 

use "C:\Users\fcslab122\Downloads\AmericasBarometer Merged 2004-2012 v16.0.dta" 

* Preliminary Summary of Survey Waves

tab pais 
tab year

tab year if pais==15

** Noam Lupu´s partisanship measure

* Generate measure of partisanship
gen pid = (vb10==1)


* Generate variable identifying each survey-year
egen svyyr = concat(pais year)
destring svyyr, replace
tab svyyr

* generate the mean pid for each year
bysort svyyr: egen mpid = mean(pid)

replace pid = . if mpid==0

*  partisanship across all waves for brazil

* install package
findit tab3way

* Table 

tab3way pid year pais if pais==15, colpct