* This do file creates the whisker plot in Fugure1
clear
use Stability_JDE_data


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*"


gen ci90=.
gen ci10=.
gen coef=.
gen preftype=.
gen year=""



*******************************************************
* Risktime
reg risk1_07 apuesta `covariate07survey' if d_07==1&survey0709!=0, robust 
local y "risk1_07"
local x "apuesta"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07survey' if d_07==1&survey0709!=0, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 1
replace ci10=`ci_10' in 1
replace coef=`coef' in 1
replace preftype=10 in 1
replace year="0207" in 1

reg risk1_09 risk1_07 `covariate09' if survey0709==1, robust 
local y "risk1_09"
local x "risk1_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if survey0709==1, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 2
replace ci10=`ci_10' in 2
replace coef=`coef' in 2
replace preftype=13 in 2
replace year="0709" in 2

reg time_09 time_07 `covariate09' if survey0709==1, robust 
local y "time_09"
local x "time_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if survey0709==1, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 3
replace ci10=`ci_10' in 3
replace coef=`coef' in 3
replace preftype=20 in 3
replace year="0709" in 3
gen pref="risktime" in 1/3


********************************************************
* Stab_survey

*world
reg c100a_07 c26a `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust
local y "c100a_07"
local x "c26a"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 4
replace ci10=`ci_10' in 4
replace coef=`coef' in 4
replace preftype=40 in 4
replace year="0207" in 4

reg  c53a_09 c100a_07 `covariate09' if survey0709==1, robust
local y "c53a_09"
local x "c100a_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x'  `covariate09' if survey0709==1, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 5
replace ci10=`ci_10' in 5
replace coef=`coef' in 5
replace preftype=43 in 5
replace year="0709" in 5

*people in the village
reg c100b_07 c26b `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust
local y "c100b_07"
local x "c26b"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 6
replace ci10=`ci_10' in 6
replace coef=`coef' in 6
replace preftype=50 in 6
replace year="0207" in 6

reg c15a_10 c26b `covariate10' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust
local y "c15a_10"
local x "c26b"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate10' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 7
replace ci10=`ci_10' in 7
replace coef=`coef' in 7
replace preftype=53 in 7
replace year="0210" in 7

reg c53b_09 c100b_07 `covariate09' if survey0709==1, robust
local y "c53b_09"
local x "c100b_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if survey0709==1, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 8
replace ci10=`ci_10' in 8
replace coef=`coef' in 8
replace preftype=56 in 8
replace year="0709" in 8

reg  c15a_10 c100b_07 `covariate10' if survey0709!=0,robust
local y "c15a_10"
local x "c100b_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate10' if survey0709!=0,robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 9
replace ci10=`ci_10' in 9
replace coef=`coef' in 9
replace preftype=59 in 9
replace year="0710" in 9

*closest neighbor
reg c100c_07 c26d `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0), robust
local y "c100c_07"
local x "c26d"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0), robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 10
replace ci10=`ci_10' in 10
replace coef=`coef' in 10
replace preftype=70 in 10
replace year="0207" in 10

reg c53c_09 c100c_07  `covariate09' if survey0709==1, robust
local y "c53c_09"
local x "c100c_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x'  `covariate09' if survey0709==1, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 11
replace ci10=`ci_10' in 11
replace coef=`coef' in 11
replace preftype=73 in 11
replace year="0709" in 11

*ok to buy something (radio in 07) you know is stolen
reg c100j_bin c26m_bin `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust
local y "c100j_bin"
local x "c26m_bin"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 12
replace ci10=`ci_10' in 12
replace coef=`coef' in 12
replace preftype=80 in 12
replace year="0207" in 12

reg c53h_bin c100j_bin `covariate09' if survey0709==1,robust
local y "c53h_bin"
local x "c100j_bin"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if survey0709==1,robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 13
replace ci10=`ci_10' in 13
replace coef=`coef' in 13
replace preftype=83 in 13
replace year="0709" in 13

*would villagemates take advantage if had opportunity
reg c100m_07 c26j `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust
local y "c100m_07"
local x "c26j"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07survey' if d_07==1&samepers==1&survey0709!=0 | (survey0207==1 & survey0709!=0),robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 14
replace ci10=`ci_10' in 14
replace coef=`coef' in 14
replace preftype=90 in 14
replace year="0207" in 14

reg c53k_09 c100m_07 `covariate09' if survey0709==1, robust
local y "c53k_09"
local x "c100m_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if survey0709==1, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 15
replace ci10=`ci_10' in 15
replace coef=`coef' in 15
replace preftype=93 in 15
replace year="0709" in 15

*would you revenge being treated badly
reg c53o_bin c100q_bin `covariate09' if survey0709==1, robust
local y "c53o_bin"
local x "c100q_bin"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if survey0709==1, robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 16
replace ci10=`ci_10' in 16
replace coef=`coef' in 16
replace preftype=100 in 16
replace year="0709" in 16

reg  c11b_bin c100q_bin `covariate10' if survey0709!=0,robust
local y "c11b_bin"
local x "c100q_bin"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate10' if survey0709!=0,robust 
local coef=_b[z2`x']
local se=_se[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 17
replace ci10=`ci_10' in 17
replace coef=`coef' in 17
replace preftype=103 in 17
replace year="0710" in 17
replace pref="stab_survey" in 4/17


***********************************************************************
* Stab_game

*ALTRUISM
*sent as trustor 02 vs sent anonymous dicator 07
reg sent_anon_07 condorma `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust
local y "sent_anon_07"
local x "condorma"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 18
replace ci10=`ci_10' in 18
replace coef=`coef' in 18
replace preftype=120 in 18
replace year="0207" in 18

*share as trustee 02 vs sent anonymous dictator 07
reg sent_anon_07 share `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust
local y "sent_anon_07"
local x "share"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 19
replace ci10=`ci_10' in 19
replace coef=`coef' in 19
replace preftype=130 in 19
replace year="0207" in 19

*07 (anonymous game) vs 09 (anonymous game)
reg  c56a_09 sent_anon_07 `covariate09' if game0709==1, robust
local y "c56a_09"
local x "sent_anon_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if game0709==1, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 20
replace ci10=`ci_10' in 20
replace coef=`coef' in 20
replace preftype=140 in 20
replace year="0709" in 20

*07 vs 09 (chosen non-reveled game)
reg  sent_elegidoyno_09 sent_elegidoyno_07 `covariate09' if game0709==1, robust
local y "sent_elegidoyno_09"
local x "sent_elegidoyno_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if game0709==1, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 21
replace ci10=`ci_10' in 21
replace coef=`coef' in 21
replace preftype=150 in 21
replace year="0709" in 21

*TRUST
*sent as trustor 02 vs sent revealed dictator 07 
reg  sent_reve_07 condorma `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust
local y "sent_reve_07"
local x "condorma"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 22
replace ci10=`ci_10' in 22
replace coef=`coef' in 22
replace preftype=160 in 22
replace year="0207" in 22

*share as trustee 02 vs sent revealed dictator 07 
reg sent_reve_07 share `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust
local y "sent_reve_07"
local x "share"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate07game' if d_07==1&conquienpol_07==jugador_07, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 23
replace ci10=`ci_10' in 23
replace coef=`coef' in 23
replace preftype=170 in 23
replace year="0207" in 23

*07 (revealed game) vs 09 (revealed game)
reg c56b_09 sent_reve_07 `covariate09' if game0709==1, robust
local y "c56b_09"
local x "sent_reve_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if game0709==1, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 24
replace ci10=`ci_10' in 24
replace coef=`coef' in 24
replace preftype=180 in 24
replace year="0709" in 24

*07 vs 09 (chosen revealed game)
reg sent_elegidoysi_09 sent_elegidoysi_07 `covariate09' if game0709==1, robust
local y "sent_elegidoysi_09"
local x "sent_elegidoysi_07"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate09' if game0709==1, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 25
replace ci10=`ci_10' in 25
replace coef=`coef' in 25
replace preftype=190 in 25
replace year="0709" in 25

*RECIPROCITY
*share as trustee 02 vs positive reciprocity 10
reg posrecip_ju1_10 share `covariate10' if d_07==1&survey0709!=0, robust
local y "posrecip_ju1_10"
local x "share"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate10' if d_07==1&survey0709!=0, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 26
replace ci10=`ci_10' in 26
replace coef=`coef' in 26
replace preftype=200 in 26
replace year="0210" in 26

*share as trustee 02 vs negative reciprocity 10
reg negrecip_ju1_10 share `covariate10' if d_07==1&survey0709!=0, robust
local y "negrecip_ju1_10"
local x "share"
egen z2`y'=std(`y') if e(sample)==1
egen z2`x'=std(`x') if e(sample)==1
reg z2`y' z2`x' `covariate10' if d_07==1&survey0709!=0, robust 
local coef=_b[z2`x']
local ci_90=_b[z2`x']+invttail(e(df_r), 0.05)*_se[z2`x']
local ci_10=_b[z2`x']-invttail(e(df_r), 0.05)*_se[z2`x']
drop z2*
replace ci90=`ci_90' in 27
replace ci10=`ci_10' in 27
replace coef=`coef' in 27
replace preftype=210 in 27
replace year="0210" in 27
replace pref="stab_game" in 18/27

# delimit ;
label define preftype 10 "risk" 20 "time"

40 "trustworld" 50"trustvillage" 70"trustneighbor" 80"buystolen" 90"takeadvantage" 
100"negreciprocity"  

120"trustor_Adict" 130"trustee_Adict" 140"Adict_Adict" 150"CNdict_CNdict" 160"trustor_Rdict" 170"trustee_Rdict" 180"Rdict_Rdict"  
190 "CRdict_CRdict" 200"trustee_posrec" 210"trustee_negrec";

label value preftype preftype;

twoway (rcap ci90 ci10 preftype if pref=="risktime", hor  lwidth(thin))|| (scatter  preftype coef if year=="0207", msymbol(triangle)  msize(small)   )||
(rcap ci90 ci10 preftype if pref=="stab_survey", hor lwidth(thin))|| (scatter  preftype coef if year=="0210", msymbol(square_hollow) msize(small) )||
(rcap ci90 ci10 preftype if pref=="stab_game", hor lwidth(thin))|| (scatter  preftype coef if year=="0709", msymbol(circle) msize(small)) || 
(scatter  preftype coef if year=="0710", msymbol(smdiamond_hollow)) ,
ylabel(10 20  40 50  70 80 90 100 120 130 140 150 160 170 180 190 200 210, valuelabel angle(0) labsize(small)) ytitle("Experiment                 Survey") 
xtitle("Regression coefficients and 90% confidence intervals", size(small))  xlabel(-0.8(0.2)0.8 , labsize(small)) 
xscale(range(-0.8 0.8)) yscale(reverse) ysize(20) xsize(18) xline(0, lpattern(shortdash)) yline (30) yline (110)
legend(order(2 "0207" 4 "0210" 6 "0709" 7 "0710") ) ; 


*graph export .\whiskerplot.png, replace;
*graph export .\whiskerplot.eps, replace;