/**************************************************************************
* Authors:      Ken Scheve and David Stasavage
* Date:         December 2009
* File:         Figure3gallup263mW.do
* Description:  conducts analysis for 1942 part of Figure 3
****************************************************************************/
#delimit; 
clear;
log using Figure3gallup263mW.log, replace;
use Scheve_Stasavage_IO_2010_AIPO0263INCOME3W.dta; /*provided by Adam Berinsky*/

/** Define Variables for Analysis **/
generate study=BALLOT; /* Defines study as 242 or 263 */
generate form=FORM; /* Defines which questionaire used for respondent */

gen class1=CLASS;  /* class 1 and 2 range from 1=poor to 5=wealthy */
replace class1=. if CLASS==6|CLASS==7|CLASS==8;
recode class1 1=5 2=4 4=2 5=1;
gen class2=CLASS;
replace class2=5 if CLASS==6|CLASS==7|CLASS==8;
recode class2 1=5 2=4 4=2 5=1;

gen occseshigh=0; /* hi SES occupation =1 otherwise=0*/
replace occseshigh=1 if OCCUPATION1==1|OCCUPATION1==3|OCCUPATION1==4|OCCUPATION1==10;

gen tax1000=Q5AK;  /* NOTE that 242 has top coding problem so analysis need to be medians */
recode tax1000 40=0 0=0.5;

gen tax1500=Q5AT;
recode tax1500 70=0 0=0.5;

gen tax2000=Q5BK;
recode tax2000 92=0 0=0.5;

gen tax3000=Q5BT;
recode tax3000 90=0 0=0.5;

gen tax5000=Q5CK;
recode tax5000 80=0 0=0.5;

gen tax10000=Q5CT;
recode tax10000 90=0 0=0.5;

gen tax50000=Q5DK;
recode tax50000 97=0 0=0.5;

gen tax100000=Q5DT;
recode tax100000 92=0 0=0.5;

keep study form STATE FEMALE AGE class1 class2 occseshigh
BLACK PROF VOTE_RETRO CAR_RECODE PHONE_RECODE 
tax1000 tax1500 tax2000 tax3000 tax5000 tax5000 
tax10000 tax50000 tax100000 weight*;

gen class3=class2;
recode class3 1=1 2=1 3=2 4=3 5=3;

/* Decriptive Statistics for Figure 3*/

summarize  tax1000 tax1500 tax2000 tax3000 tax5000 tax10000 tax50000 tax100000 [aweight=weight_edu] if class3==1,detail;
summarize  tax1000 tax1500 tax2000 tax3000 tax5000 tax10000 tax50000 tax100000 [aweight=weight_edu] if class3==2,detail;
summarize  tax1000 tax1500 tax2000 tax3000 tax5000 tax10000 tax50000 tax100000 [aweight=weight_edu] if class3==3,detail;

log close;