******************************************************************************************************************************* ******************************************************************************************************************************* * Documentation for Reproduction of * Alquist et al. Alien Abduction * XXX * L.J Zigerell * Stata version 11 ******************************************************************************************************************************* ******************************************************************************************************************************* * Open AMJ_wave_2.tab in Microsoft Excel using the delimited option * Copy and paste data in Stata set more off ******************************************************************************************************************************* *** Treatment groups ******************************************************************************************************************************* tab group gen treat1 = 2 - group gen treat2 = 1 - treat1 tab treat1 group tab treat2 group tab treat1 treat2 // use treat 1 if group 1 is the group with 5 items // use treat 2 if group 2 is the group with 5 items * See footnote 15 in Ahlquist et al.: "In order to avoid potential * issues with priming or contamination respondents in the treatment * group for the voter impersonation list experiment served as the * control group for the vote buying question, and vice versa." ******************************************************************************************************************************* *** Question A: Fradulent / Repeat Voting ******************************************************************************************************************************* tab qa group tab qa2 group * Treat 1 is the group with 5 items (not 4) tab1 qa qa2 gen qa_merged = . replace qa_merged = 0 if qa==0 | qa2==0 replace qa_merged = 1 if qa==1 | qa2==1 replace qa_merged = 2 if qa==2 | qa2==2 replace qa_merged = 3 if qa==3 | qa2==3 replace qa_merged = 4 if qa==4 | qa2==4 replace qa_merged = 5 if qa==5 | qa2==5 reg qa_merged treat1 // matches the point estimate and confidence interval in Ahlquist et al. reg qa_merged treat1 [pw=weight] // matches the point estimate and confidence interval in Ahlquist et al. ******************************************************************************************************************************* *** Question B: Vote buying ******************************************************************************************************************************* tab qb group tab qb2 group * Treat 2 is the group with 5 items (not 4) tab1 qb qb2 gen qb_merged = . replace qb_merged = 0 if qb==0 | qb2==0 replace qb_merged = 1 if qb==1 | qb2==1 replace qb_merged = 2 if qb==2 | qb2==2 replace qb_merged = 3 if qb==3 | qb2==3 replace qb_merged = 4 if qb==4 | qb2==4 replace qb_merged = 5 if qb==5 | qb2==5 reg qb_merged treat2 reg qb_merged treat2 [pw=weight] ******************************************************************************************************************************* *** Question C: Common illegal/undesirable behavior (texting while driving) ******************************************************************************************************************************* tab qc group tab qc2 group * Treat 2 is the group with 5 items (not 4) tab1 qc qc2 gen qc_merged = . replace qc_merged = 0 if qc==0 | qc2==0 replace qc_merged = 1 if qc==1 | qc2==1 replace qc_merged = 2 if qc==2 | qc2==2 replace qc_merged = 3 if qc==3 | qc2==3 replace qc_merged = 4 if qc==4 | qc2==4 replace qc_merged = 5 if qc==5 | qc2==5 reg qc_merged treat2 reg qc_merged treat2 [pw=weight] ******************************************************************************************************************************* *** Question D: Impossible event (alien abduction) ******************************************************************************************************************************* tab qd group tab qd2 group * Treat 1 is the group with 5 items (not 4) tab1 qd qd2 gen qd_merged = . replace qd_merged = 0 if qd==0 | qd2==0 replace qd_merged = 1 if qd==1 | qd2==1 replace qd_merged = 2 if qd==2 | qd2==2 replace qd_merged = 3 if qd==3 | qd2==3 replace qd_merged = 4 if qd==4 | qd2==4 replace qd_merged = 5 if qd==5 | qd2==5 reg qd_merged treat1 // matches the point estimate and confidence interval in Ahlquist et al. reg qd_merged treat1 [pw=weight] // matches the point estimate and confidence interval in Ahlquist et al. ******************************************************************************************************************************* *** Disaggregated analyses ******************************************************************************************************************************* * Registered voters reg qa_merged treat1 if votereg==1 [pw=weight] reg qb_merged treat2 if votereg==1 [pw=weight] // * 12% (p=0.018) reg qc_merged treat2 if votereg==1 [pw=weight] reg qd_merged treat1 if votereg==1 [pw=weight] // * 10% (p=0.017) reg qb_merged treat2 if votereg==1 // unweighted reg qd_merged treat1 if votereg==1 // unweighted * Non-registered voters (not DKs) reg qa_merged treat1 if votereg==2 [pw=weight] // -22% (p=0.084) reg qb_merged treat2 if votereg==2 [pw=weight] reg qc_merged treat2 if votereg==2 [pw=weight] // cannot even find 0.05 here reg qd_merged treat1 if votereg==2 [pw=weight] * Democrats reg qa_merged treat1 if pid3==1 [pw=weight] reg qb_merged treat2 if pid3==1 [pw=weight] reg qc_merged treat2 if pid3==1 [pw=weight] reg qd_merged treat1 if pid3==1 [pw=weight] * Republicans reg qa_merged treat1 if pid3==2 [pw=weight] reg qb_merged treat2 if pid3==2 [pw=weight] reg qc_merged treat2 if pid3==2 [pw=weight] reg qd_merged treat1 if pid3==2 [pw=weight] // 32% (p=0.006) reg qd_merged treat1 if pid3==2 // unweighted reg qd_merged treat1 if pid3==2 & gender==1 [pw=weight] // Republican men * Hispanics reg qa_merged treat1 if race==3 [pw=weight] // -55% (p=0.004) reg qb_merged treat2 if race==3 [pw=weight] reg qc_merged treat2 if race==3 [pw=weight] reg qd_merged treat1 if race==3 [pw=weight] reg qa_merged treat1 if race==3 // unweighted reg qb_merged treat2 if race==3 // unweighted tab race if qa_merged==0 & treat1==1 tab race if treat1==1 di 61/157 // 39% Hispanics picked 0 in 5-item list di (355-61)/(1528-157) // 21% others picked 0 in 5-item list tab race if qa_merged==0 & treat1==0 tab race if treat1==0 di 43/143 // 30% Hispanics picked 0 in 5-item list di (320-43)/(1472-143) // 21% others picked 0 in 5-item list * Blacks reg qa_merged treat1 if race==2 [pw=weight] reg qb_merged treat2 if race==2 [pw=weight] reg qc_merged treat2 if race==2 [pw=weight] reg qd_merged treat1 if race==2 [pw=weight] * Whites reg qa_merged treat1 if race==1 [pw=weight] reg qb_merged treat2 if race==1 [pw=weight] reg qc_merged treat2 if race==1 [pw=weight] reg qd_merged treat1 if race==1 [pw=weight] * Men reg qa_merged treat1 if gender==1 [pw=weight] reg qb_merged treat2 if gender==1 [pw=weight] reg qc_merged treat2 if gender==1 [pw=weight] reg qd_merged treat1 if gender==1 [pw=weight] * Women reg qa_merged treat1 if gender==2 [pw=weight] // -16% (p=0.022) reg qb_merged treat2 if gender==2 [pw=weight] reg qc_merged treat2 if gender==2 [pw=weight] reg qd_merged treat1 if gender==2 [pw=weight] reg qa_merged treat1 if gender==2 // -4% (p=0.445)