Pre-registered study
Self-reported moral composition of participant’s workplace
##
## 1. Everybody same 2. Almost everybody same 3. Many people same 4. Only a few people same 5. Very few people same
## 0.07284768 0.31125828 0.49006623 0.08609272 0.03973510
Graphs

With moral diversity coded as a factor
##
## Call:
## lm(formula = n_vio ~ cond_f, data = mdp_study1clean)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.4583 -0.8723 -0.4091 0.6858 4.1277
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.4091 0.3745 3.763 0.000243 ***
## cond_f2. Almost everybody same 0.4632 0.4160 1.114 0.267274
## cond_f3. Many people same 0.6551 0.4013 1.632 0.104772
## cond_f4. Only a few people same 0.8409 0.5088 1.653 0.100535
## cond_f5. Very few people same 1.0492 0.6303 1.665 0.098135 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.242 on 146 degrees of freedom
## Multiple R-squared: 0.03, Adjusted R-squared: 0.003422
## F-statistic: 1.129 on 4 and 146 DF, p-value: 0.3453
With moral diversity coded as a number
##
## Call:
## lm(formula = n_vio ~ moraldiversity, data = mdp_study1clean)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.5303 -0.8208 -0.5303 0.6792 4.1792
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.3478 0.3264 4.129 6.03e-05 ***
## moraldiversity 0.2365 0.1147 2.062 0.0409 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.231 on 149 degrees of freedom
## Multiple R-squared: 0.02775, Adjusted R-squared: 0.02122
## F-statistic: 4.253 on 1 and 149 DF, p-value: 0.04093
Pilot Study
Self-reported moral composition of participant’s workplace
##
## 1. Everybody same 2. Almost everybody same 3. Many people same 4. Only a few people same 5. Very few people same
## 0.04188482 0.29842932 0.52356021 0.11518325 0.02094241
Graph

With moral diversity coded as a factor
##
## Call:
## lm(formula = n_vio ~ cond_f, data = mdp1_clean)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.1477 -0.9800 -0.4800 0.5256 5.0439
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.2188 0.4857 2.509 0.012953 *
## cond_f2. Almost everybody same 0.7374 0.5187 1.422 0.156791
## cond_f3. Many people same 0.7612 0.5048 1.508 0.133215
## cond_f4. Only a few people same 1.9290 0.5672 3.401 0.000822 ***
## cond_f5. Very few people same 0.4688 0.8413 0.557 0.578064
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.374 on 186 degrees of freedom
## Multiple R-squared: 0.08708, Adjusted R-squared: 0.06745
## F-statistic: 4.435 on 4 and 186 DF, p-value: 0.001902
With moral diversity coded as a number
##
## Call:
## lm(formula = n_vio ~ moraldiversity_corre, data = mdp1_clean)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.8419 -1.1475 -0.4531 0.4497 5.1997
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.1059 0.3727 2.968 0.00339 **
## moraldiversity_corre 0.3472 0.1292 2.686 0.00787 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.4 on 189 degrees of freedom
## Multiple R-squared: 0.03678, Adjusted R-squared: 0.03168
## F-statistic: 7.217 on 1 and 189 DF, p-value: 0.007866