3 Loading Data

dat <- read.csv("Data/Meta_Analysis.csv")



dat
##    Study_ID                           Author         rho   N        Branch
## 1         1             DiFabio Kenny (2016)  0.01287085 157         Total
## 2         2     Dong et al. (2014) aggregate -0.12206002 214         Total
## 3         3          Elfenbein et al. (2008)  0.14350433 149         Total
## 4         4  Elfenbein et al. (2015) Study 2 -0.04715209 135         Total
## 5         5            Extremera, Rey (2016)  0.12782922 721         Total
## 6         6 Karim and Weisz  (2010) Pakistan  0.13643296  81         Total
## 7         6    Karim and Weisz (2010) France -0.01233722 111         Total
## 8         7               Kirk et al. (2008)  0.16220024  92         Total
## 9         8              Lopes et al. (2006)  0.37454095  41         Total
## 10        9         Minbashian et al. (2018)  0.10622381 129         Total
## 11       10               Webb et al. (2013) -0.22955736  65         Total
## 12        4  Elfenbein et al. (2015) Study 2 -0.07099473 135    Perception
## 13        6 Karim and Weisz  (2010) Pakistan -0.02464445  81    Perception
## 14        6    Karim and Weisz (2010) France  0.01210322 111    Perception
## 15        8              Lopes et al. (2006)  0.29111566  41    Perception
## 16       11  Mueller & Curhan (2006) Study 1  0.00000000  66    Perception
## 17       11  Mueller & Curhan (2006) Study 2  0.19407711  83    Perception
## 18       12       Rode et al. (2008) Study 1  0.05723088 412    Perception
## 19       12       Rode et al. (2008) Study 2  0.09121955 655    Perception
## 20        4  Elfenbein et al. (2015) Study 2 -0.06562864 135  Facilitation
## 21        6 Karim and Weisz  (2010) Pakistan  0.08971410  81  Facilitation
## 22        6    Karim and Weisz (2010) France  0.11782556 111  Facilitation
## 23        8              Lopes et al. (2006)  0.17595804  41  Facilitation
## 24       11  Mueller & Curhan (2006) Study 1 -0.01331518  66  Facilitation
## 25       11  Mueller & Curhan (2006) Study 2 -0.12181710  83  Facilitation
## 26       13     Parke, Seo, and Sherf (2015)  0.01446014 177  Facilitation
## 27       12       Rode et al. (2008) Study 1  0.08933389 412  Facilitation
## 28       12       Rode et al. (2008) Study 2  0.15032359 655  Facilitation
## 29        4  Elfenbein et al. (2015) Study 2 -0.20741090 135 Understanding
## 30        4  Elfenbein et al. (2015) Study 3  0.03820804 292 Understanding
## 31        6 Karim and Weisz  (2010) Pakistan  0.22664652  81 Understanding
## 32        6    Karim and Weisz (2010) France -0.24430735 111 Understanding
## 33        8              Lopes et al. (2006)  0.20035804  41 Understanding
## 34       11  Mueller & Curhan (2006) Study 1 -0.17089264  66 Understanding
## 35       11  Mueller & Curhan (2006) Study 2  0.01335720  83 Understanding
## 36       12       Rode et al. (2008) Study 1 -0.04067773 412 Understanding
## 37       12       Rode et al. (2008) Study 2  0.14982998 655 Understanding
## 38       14           Brackett et al. (2010)  0.51496764 123    Management
## 39       15             Burrus et al. (2012)  0.26517393 112    Management
## 40        4  Elfenbein et al. (2015) Study 2  0.29028301 135    Management
## 41        4  Elfenbein et al. (2015) Study 3  0.16277969 292    Management
## 42        6 Karim and Weisz  (2010) Pakistan  0.07689780  81    Management
## 43        6    Karim and Weisz (2010) France  0.30350097 111    Management
## 44        8              Lopes et al. (2006)  0.50636686  41    Management
## 45       11  Mueller & Curhan (2006) Study 1  0.03836746  66    Management
## 46       11  Mueller & Curhan (2006) Study 2  0.25967532  83    Management
## 47       13     Parke, Seo, and Sherf (2015)  0.31568019 177    Management
## 48       12       Rode et al. (2008) Study 1  0.10738013 412    Management
## 49       12       Rode et al. (2008) Study 2  0.21216491 655    Management
## 50       16            Zeidner et al. (2014)  0.14187803 182    Management
## 51       17               Zhao et al. (2019)  0.17135864 343    Management
##         Sample Perc_Female
## 1  High School          87
## 2    Community          58
## 3  High School          20
## 4    Community          53
## 5  High School          62
## 6    Community          33
## 7  High School          78
## 8  High School          70
## 9  High School          52
## 10   Community          40
## 11   Community          81
## 12 High School          61
## 13   Community          73
## 14   Workplace          65
## 15 High School          29
## 16   Community          26
## 17 High School          28
## 18 High School          34
## 19   Community          80
## 20 High School          56
## 21   Community          60
## 22 High School          44
## 23 High School          77
## 24 High School          71
## 25 High School          67
## 26 High School          90
## 27 High School          79
## 28   Community          69
## 29   Community          84
## 30   Community          82
## 31 High School          39
## 32 High School          54
## 33   Community          25
## 34 High School          76
## 35 High School          83
## 36 High School          47
## 37 High School          66
## 38   Workplace          42
## 39 High School          89
## 40 High School          63
## 41 High School          27
## 42 High School          31
## 43   Workplace          51
## 44 High School          68
## 45   Workplace          43
## 46   Community          64
## 47 High School          75
## 48 High School          38
## 49 High School          57
## 50 High School          45
## 51   Community          85

3.1 Computing Effect Sizes

# compute log risk ratios and corresponding sampling variances
dat <- escalc(measure = "COR", ri = rho, ni = N, data = dat)

dat
##    Study_ID                           Author         rho   N        Branch 
## 1         1             DiFabio Kenny (2016)  0.01287085 157         Total 
## 2         2     Dong et al. (2014) aggregate -0.12206002 214         Total 
## 3         3          Elfenbein et al. (2008)  0.14350433 149         Total 
## 4         4  Elfenbein et al. (2015) Study 2 -0.04715209 135         Total 
## 5         5            Extremera, Rey (2016)  0.12782922 721         Total 
## 6         6 Karim and Weisz  (2010) Pakistan  0.13643296  81         Total 
## 7         6    Karim and Weisz (2010) France -0.01233722 111         Total 
## 8         7               Kirk et al. (2008)  0.16220024  92         Total 
## 9         8              Lopes et al. (2006)  0.37454095  41         Total 
## 10        9         Minbashian et al. (2018)  0.10622381 129         Total 
## 11       10               Webb et al. (2013) -0.22955736  65         Total 
## 12        4  Elfenbein et al. (2015) Study 2 -0.07099473 135    Perception 
## 13        6 Karim and Weisz  (2010) Pakistan -0.02464445  81    Perception 
## 14        6    Karim and Weisz (2010) France  0.01210322 111    Perception 
## 15        8              Lopes et al. (2006)  0.29111566  41    Perception 
## 16       11  Mueller & Curhan (2006) Study 1  0.00000000  66    Perception 
## 17       11  Mueller & Curhan (2006) Study 2  0.19407711  83    Perception 
## 18       12       Rode et al. (2008) Study 1  0.05723088 412    Perception 
## 19       12       Rode et al. (2008) Study 2  0.09121955 655    Perception 
## 20        4  Elfenbein et al. (2015) Study 2 -0.06562864 135  Facilitation 
## 21        6 Karim and Weisz  (2010) Pakistan  0.08971410  81  Facilitation 
## 22        6    Karim and Weisz (2010) France  0.11782556 111  Facilitation 
## 23        8              Lopes et al. (2006)  0.17595804  41  Facilitation 
## 24       11  Mueller & Curhan (2006) Study 1 -0.01331518  66  Facilitation 
## 25       11  Mueller & Curhan (2006) Study 2 -0.12181710  83  Facilitation 
## 26       13     Parke, Seo, and Sherf (2015)  0.01446014 177  Facilitation 
## 27       12       Rode et al. (2008) Study 1  0.08933389 412  Facilitation 
## 28       12       Rode et al. (2008) Study 2  0.15032359 655  Facilitation 
## 29        4  Elfenbein et al. (2015) Study 2 -0.20741090 135 Understanding 
## 30        4  Elfenbein et al. (2015) Study 3  0.03820804 292 Understanding 
## 31        6 Karim and Weisz  (2010) Pakistan  0.22664652  81 Understanding 
## 32        6    Karim and Weisz (2010) France -0.24430735 111 Understanding 
## 33        8              Lopes et al. (2006)  0.20035804  41 Understanding 
## 34       11  Mueller & Curhan (2006) Study 1 -0.17089264  66 Understanding 
## 35       11  Mueller & Curhan (2006) Study 2  0.01335720  83 Understanding 
## 36       12       Rode et al. (2008) Study 1 -0.04067773 412 Understanding 
## 37       12       Rode et al. (2008) Study 2  0.14982998 655 Understanding 
## 38       14           Brackett et al. (2010)  0.51496764 123    Management 
## 39       15             Burrus et al. (2012)  0.26517393 112    Management 
## 40        4  Elfenbein et al. (2015) Study 2  0.29028301 135    Management 
## 41        4  Elfenbein et al. (2015) Study 3  0.16277969 292    Management 
## 42        6 Karim and Weisz  (2010) Pakistan  0.07689780  81    Management 
## 43        6    Karim and Weisz (2010) France  0.30350097 111    Management 
## 44        8              Lopes et al. (2006)  0.50636686  41    Management 
## 45       11  Mueller & Curhan (2006) Study 1  0.03836746  66    Management 
## 46       11  Mueller & Curhan (2006) Study 2  0.25967532  83    Management 
## 47       13     Parke, Seo, and Sherf (2015)  0.31568019 177    Management 
## 48       12       Rode et al. (2008) Study 1  0.10738013 412    Management 
## 49       12       Rode et al. (2008) Study 2  0.21216491 655    Management 
## 50       16            Zeidner et al. (2014)  0.14187803 182    Management 
## 51       17               Zhao et al. (2019)  0.17135864 343    Management 
##         Sample Perc_Female      yi     vi 
## 1  High School          87  0.0129 0.0064 
## 2    Community          58 -0.1221 0.0046 
## 3  High School          20  0.1435 0.0065 
## 4    Community          53 -0.0472 0.0074 
## 5  High School          62  0.1278 0.0013 
## 6    Community          33  0.1364 0.0120 
## 7  High School          78 -0.0123 0.0091 
## 8  High School          70  0.1622 0.0104 
## 9  High School          52  0.3745 0.0185 
## 10   Community          40  0.1062 0.0076 
## 11   Community          81 -0.2296 0.0140 
## 12 High School          61 -0.0710 0.0074 
## 13   Community          73 -0.0246 0.0125 
## 14   Workplace          65  0.0121 0.0091 
## 15 High School          29  0.2911 0.0209 
## 16   Community          26  0.0000 0.0154 
## 17 High School          28  0.1941 0.0113 
## 18 High School          34  0.0572 0.0024 
## 19   Community          80  0.0912 0.0015 
## 20 High School          56 -0.0656 0.0074 
## 21   Community          60  0.0897 0.0123 
## 22 High School          44  0.1178 0.0088 
## 23 High School          77  0.1760 0.0235 
## 24 High School          71 -0.0133 0.0154 
## 25 High School          67 -0.1218 0.0118 
## 26 High School          90  0.0145 0.0057 
## 27 High School          79  0.0893 0.0024 
## 28   Community          69  0.1503 0.0015 
## 29   Community          84 -0.2074 0.0068 
## 30   Community          82  0.0382 0.0034 
## 31 High School          39  0.2266 0.0112 
## 32 High School          54 -0.2443 0.0080 
## 33   Community          25  0.2004 0.0230 
## 34 High School          76 -0.1709 0.0145 
## 35 High School          83  0.0134 0.0122 
## 36 High School          47 -0.0407 0.0024 
## 37 High School          66  0.1498 0.0015 
## 38   Workplace          42  0.5150 0.0044 
## 39 High School          89  0.2652 0.0078 
## 40 High School          63  0.2903 0.0063 
## 41 High School          27  0.1628 0.0033 
## 42 High School          31  0.0769 0.0124 
## 43   Workplace          51  0.3035 0.0075 
## 44 High School          68  0.5064 0.0138 
## 45   Workplace          43  0.0384 0.0153 
## 46   Community          64  0.2597 0.0106 
## 47 High School          75  0.3157 0.0046 
## 48 High School          38  0.1074 0.0024 
## 49 High School          57  0.2122 0.0014 
## 50 High School          45  0.1419 0.0053 
## 51   Community          85  0.1714 0.0028

Here’s the formula for varince (FYI):

\(vi = (1 - yi^2)^2/(ni - 1)\)