use Collab_3-5.dta, clear

*Difference in proportion who give, Experiment 1
prtest gave if rd==3, by(Collab)
*Cohen's h
di 2*(asin(sqrt(.4176471)) - asin(sqrt(.3232932)))

*Difference in proportion who give, Experiment 2
prtest gave if rd==4, by(Collab)
*Cohen's h
di 2*(asin(sqrt(.606679)) - asin(sqrt(.4224806)))

*Difference in proportion who give, Experiment 3
prtest gave if rd==5, by(Collab)
*Cohen's h
di 2*(asin(sqrt(.6484099)) - asin(sqrt(.5518453)))



*Difference in proportion giving half, Experiment 1
prtest half if rd==3, by(Collab)
*Cohen's h
di 2*(asin(sqrt(.3355705)) - asin(sqrt(.2270642)))

*Difference in proportion giving half, Experiment 2
prtest half if rd==4, by(Collab)
*Cohen's h
di 2*(asin(sqrt(.4765432)) - asin(sqrt(.2378517)))

*Difference in proportion giving half, Experiment 3
prtest half if rd==5, by(Collab)
*Cohen's h
di 2*(asin(sqrt(.4884319)) - asin(sqrt(.3181818)))



*Effect of effort
xi: reg given i.Collab effdiff effdiffsq i.rd, robust

xi: reg given i.Collab*effdiff effdiffsq i.rd, robust



*Affinity
*Increase in affinity
sum affincrease
ttest affincrease, by(Collab)
esize twosample affincrease, by(Collab) cohensd

*Replication, after-only
use Collab_affin_St12.dta, clear
ttest affinity, by(Collab)





* Experiment 4
use Collab_Exp4.dta, clear

*Difference in proportion who give
prtest gave, by(collab)
*Cohen's h
di 2*(asin(sqrt(.6484099)) - asin(sqrt(.5518453)))


*Difference in proportion giving half
prtest half, by(collab)
*Cohen's h
di 2*(asin(sqrt(.3355705)) - asin(sqrt(.2270642)))


* Supplementary Information
*Table S1
use Collab_3-5.dta, clear
 xi: reg given i.Collab*i.norm i.rd, robust