2 Sets Instruments Robustness Check

Summary Stats

• unique store

length(unique(peer_effect_with_manager_update$storekey))

[1] 164

• unique employee

length(unique(peer_effect_with_manager_update$focalemployee))

[1] 16088

Instruments Correlation

• Within 1 month

cor(peer_effect_with_manager_update$avg_peerAvgTip,peer_effect_with_manager_update$avg_lagwithin30_peerAvgTip)

[1] 0.5415485

cor(peer_effect_with_manager_update$avg_peerTotalStealCnt,peer_effect_with_manager_update$avg_lagwithin30_peerTotalStealCnt)

[1] 0.2245016

cor(peer_effect_with_manager_update$avg_peerTotalStealAmount,peer_effect_with_manager_update$avg_lagwithin30_peerTotalStealAmount)

[1] 0.6460194

• Ahead 1 month

cor(peer_effect_with_manager_update$avg_peerAvgTip,peer_effect_with_manager_update$avg_lagahead30_peerAvgTip)

[1] 0.5273056

cor(peer_effect_with_manager_update$avg_peerTotalStealCnt,peer_effect_with_manager_update$avg_lagahead30_peerTotalStealCnt)

[1] 0.2243947

cor(peer_effect_with_manager_update$avg_peerTotalStealAmount,peer_effect_with_manager_update$avg_lagahead30_peerTotalStealAmount)

[1] 0.6307721

• All available instruments

cor(peer_effect_with_manager_update$avg_peerAvgTip,peer_effect_with_manager_update$avg_lag_peerAvgTip)

[1] 0.571961

cor(peer_effect_with_manager_update$avg_peerTotalStealCnt,peer_effect_with_manager_update$avg_lag_peerTotalStealCnt)

[1] 0.2475909

cor(peer_effect_with_manager_update$avg_peerTotalStealAmount,peer_effect_with_manager_update$avg_lag_peerTotalStealAmount)

[1] 0.638973

Regression Results

Tipping

• Within 30

summary(peer_iv_effect_AvgTip_lag_withmanager_update_within30)$coefficients

                       Estimate  Std. Error  t value   Pr(>|t|)
`avg_peerAvgTip(fit)` 0.0212389 0.009247932 2.296611 0.02164139

• Ahead 30

summary(peer_iv_effect_AvgTip_lag_withmanager_update_ahead30)$coefficients

                         Estimate Std. Error   t value Pr(>|t|)
`avg_peerAvgTip(fit)` 0.006872986 0.00972039 0.7070689 0.479524

• All

summary(peer_iv_effect_AvgTip_lag_withmanager_update_all)$coefficients

                        Estimate  Std. Error  t value Pr(>|t|)
`avg_peerAvgTip(fit)` 0.01264591 0.007599543 1.664035 0.096106

StealCnt

• Within 30

summary(peer_iv_effect_stealcnt_lag_withmanager_update_within30)$coefficients

                                           Estimate  Std. Error  t value     Pr(>|t|)
`log(avg_peerTotalStealCnt + 1)(fit)`    0.07463716 0.037637912 1.983031 4.736446e-02
`log(avg_peerTotalStealAmount + 1)(fit)` 0.01062956 0.002697985 3.939816 8.155495e-05

• Ahead 30

summary(peer_iv_effect_stealcnt_lag_withmanager_update_ahead30)$coefficients

                                           Estimate Std. Error  t value     Pr(>|t|)
`log(avg_peerTotalStealCnt + 1)(fit)`    0.06189442 0.04068151 1.521439 1.281504e-01
`log(avg_peerTotalStealAmount + 1)(fit)` 0.01195774 0.00282696 4.229894 2.338413e-05

• All

summary(peer_iv_effect_stealcnt_lag_withmanager_update_all)$coefficients

                                           Estimate  Std. Error  t value     Pr(>|t|)
`log(avg_peerTotalStealCnt + 1)(fit)`    0.09647688 0.033854877 2.849719 0.0043759612
`log(avg_peerTotalStealAmount + 1)(fit)` 0.01024927 0.002676956 3.828704 0.0001288348

StealAmount

• Within 30

summary(peer_iv_effect_stealamt_lag_withmanager_update_within30)$coefficients

                                           Estimate Std. Error   t value     Pr(>|t|)
`log(avg_peerTotalStealAmount + 1)(fit)` 0.01383292 0.00286941 4.8208245 1.430065e-06
`log(avg_peerTotalStealCnt + 1)(fit)`    0.03262762 0.04002934 0.8150925 4.150197e-01

• Ahead 30

summary(peer_iv_effect_stealamt_lag_withmanager_update_ahead30)$coefficients

                                            Estimate  Std. Error   t value     Pr(>|t|)
`log(avg_peerTotalStealAmount + 1)(fit)` 0.026868755 0.003007683 8.9333741 4.145128e-19
`log(avg_peerTotalStealCnt + 1)(fit)`    0.000480004 0.043282212 0.0110901 9.911516e-01

• All

summary(peer_iv_effect_stealamt_lag_withmanager_update_all)$coefficients

                                           Estimate  Std. Error   t value     Pr(>|t|)
`log(avg_peerTotalStealAmount + 1)(fit)` 0.02308891 0.002847311 8.1090220 5.113859e-16
`log(avg_peerTotalStealCnt + 1)(fit)`    0.02813957 0.036009321 0.7814525 4.345368e-01