* This do file creates the previous play impact regressions in Tables A1-3.
* cd C:\Users\schechter\Documents\Yating\StabilityPaper\JDE_Data
clear
use Stability_JDE_data
log using appA, text replace

xi i.comp
local covariate02game "lntotinc jugadorsex jugadoreda jugadoredu _I*" 
local covariate02survey "lntotinc conquiensex conquieneda conquienedu _I*" 
local covariate07game "lntotinc_07 jug_sexo_07 jug_edad_07 jug_educ_07 _I*"
local covariate07survey "lntotinc_07 conquienpolsexo_07 conquienpoledad_07 conquienpoledu_07 _I*"
local covariate09 "lntotinc_09 sex_09 age_09 educ_09 _Icomp_92"
local covariate10 "lntotinc_07 sex_10 age_10 educ_10 _Icomp_2* _Icomp_9*"

* Have to change the name of this variable, since the wild bootstrap code drops it.
rename posrecip_ju1_10 recpos_10



*********************************************************
*imp_die table
* roll of die in 02 on risk preferences in 07
pwcorr dado risk1_07 if d_07==1&survey0709!=0, sig obs
reg risk1_07 dado `covariate07survey' apuesta if d_07==1&survey0709!=0, robust 
quietly reg risk1_07 dado `covariate07survey' apuesta if d_07==1&survey0709!=0, cluster (comp)
bootwildct dado `covariate07survey' apuesta if d_07==1&survey0709!=0, hypothesis(0) bootreps(10000) numvars(1)

*********************************************************


************************************************************
*imp_recback_trustor table
*Impact of amount recieved back as trustor: condorrre_por 
pwcorr condorre_por sent_anon_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_anon_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_anon_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorre_por sent_elegidoyno_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_elegidoyno_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_elegidoyno_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorre_por sent_reve_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_reve_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_reve_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorre_por sent_elegidoysi_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_elegidoysi_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_elegidoysi_07 condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorre_por `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorre_por recpos_10 if d_07==1&survey0709!=0, sig obs
reg  recpos_10 condorre_por `covariate10' condorma share if d_07==1&survey0709!=0, robust
quietly reg  recpos_10 condorre_por `covariate10' condorma share if d_07==1&survey0709!=0, cluster (comp)
bootwildct condorre_por `covariate10' condorma share if d_07==1&survey0709!=0,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorre_por negrecip_ju1_10 if d_07==1&survey0709!=0, sig obs
reg  negrecip_ju1_10 condorre_por `covariate10' condorma share if d_07==1&survey0709!=0, robust
quietly reg  negrecip_ju1_10 condorre_por `covariate10' condorma share if d_07==1&survey0709!=0, cluster (comp)
bootwildct condorre_por `covariate10' condorma share if d_07==1&survey0709!=0,  hypothesis(0) bootreps(10000) numvars(1)

**************************************************************************************


****************************************************************
*imp_receive table
* Impact of amount recieved as trustee in 02: condorec   
pwcorr condorec sent_anon_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_anon_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_anon_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorec sent_elegidoyno_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_elegidoyno_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_elegidoyno_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorec sent_reve_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_reve_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_reve_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorec sent_elegidoysi_07 if d_07==1&conquienpol_07==jugador_07, sig obs
reg sent_elegidoysi_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, robust
quietly reg sent_elegidoysi_07 condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07, cluster (comp)
bootwildct condorec `covariate07game' condorma share if d_07==1&conquienpol_07==jugador_07,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorec recpos_10 if d_07==1&survey0709!=0, sig obs
reg  recpos_10 condorec `covariate10' condorma share if d_07==1&survey0709!=0, robust
quietly reg  recpos_10 condorec `covariate10' condorma share if d_07==1&survey0709!=0, cluster (comp)
bootwildct condorec `covariate10' condorma share if d_07==1&survey0709!=0,  hypothesis(0) bootreps(10000) numvars(1)

pwcorr condorec negrecip_ju1_10 if d_07==1&survey0709!=0, sig obs
reg  negrecip_ju1_10 condorec `covariate10' condorma share if d_07==1&survey0709!=0, robust
quietly reg  negrecip_ju1_10 condorec `covariate10' condorma share if d_07==1&survey0709!=0, cluster (comp)
bootwildct condorec `covariate10' condorma share if d_07==1&survey0709!=0,  hypothesis(0) bootreps(10000) numvars(1)

**************************************************************************

log close