blame_pre
Q1: Blame (pre-backstory) that David deserves for his actions [0 = No
blame at all, 6 = A lot of blame]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
blame_pre
|
99
|
5.859
|
0.452
|
0.045
|
0.090
|
middle_class
|
blame_pre
|
100
|
5.830
|
0.533
|
0.053
|
0.106
|
rich
|
blame_pre
|
101
|
5.842
|
0.731
|
0.073
|
0.144
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: blame_pre
## Sum Sq Df F value Pr(>F)
## condition 0.041 2 0.0601 0.9417
## Residuals 101.596 297
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -----------------------------------
## condition | 4.05e-04 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.02 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.731
|
ns
|
1
|
ns
|
0.0578
|
-0.23
|
0.35
|
negligible
|
poor
|
rich
|
99
|
101
|
0.837
|
ns
|
1
|
ns
|
0.0279
|
-0.33
|
0.26
|
negligible
|
middle_class
|
rich
|
100
|
101
|
0.888
|
ns
|
1
|
ns
|
-0.0181
|
-0.34
|
0.21
|
negligible
|
punish_pre
Q2: Punishment (pre-backstory) that David deserves for his actions [0
= No punishment at all, 6 = Severe punishment]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
punish_pre
|
99
|
5.293
|
0.848
|
0.085
|
0.169
|
middle_class
|
punish_pre
|
100
|
5.380
|
0.862
|
0.086
|
0.171
|
rich
|
punish_pre
|
101
|
5.366
|
0.821
|
0.082
|
0.162
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: punish_pre
## Sum Sq Df F value Pr(>F)
## condition 0.436 2 0.3062 0.7365
## Residuals 211.511 297
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -----------------------------------
## condition | 2.06e-03 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.05 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.467
|
ns
|
1
|
ns
|
-0.1018
|
-0.37
|
0.18
|
negligible
|
poor
|
rich
|
99
|
101
|
0.539
|
ns
|
1
|
ns
|
-0.0879
|
-0.36
|
0.19
|
negligible
|
middle_class
|
rich
|
100
|
101
|
0.909
|
ns
|
1
|
ns
|
0.0162
|
-0.27
|
0.29
|
negligible
|
manip_check
Q3: How financially secure David was during his childhood
(manipulation check) [0 = very insecure, 6 = very secure]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
manip_check
|
99
|
0.111
|
0.426
|
0.043
|
0.085
|
middle_class
|
manip_check
|
100
|
3.850
|
1.104
|
0.110
|
0.219
|
rich
|
manip_check
|
101
|
5.901
|
0.458
|
0.046
|
0.090
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: manip_check
## Sum Sq Df F value Pr(>F)
## condition 1720.25 2 1601.2 < 2.2e-16 ***
## Residuals 159.54 297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -------------------------------
## condition | 0.92 | [0.90, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 3.28 | [3.04, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0
|
****
|
0
|
****
|
-4.4587
|
-5.63
|
-3.72
|
large
|
poor
|
rich
|
99
|
101
|
0
|
****
|
0
|
****
|
-13.0814
|
-21.87
|
-9.74
|
large
|
middle_class
|
rich
|
100
|
101
|
0
|
****
|
0
|
****
|
-2.4300
|
-3.06
|
-1.99
|
large
|
blame_post
Q4: Blame (post-backstory) that David deserves for his actions [0 =
No blame at all, 6 = A lot of blame]
Summary
condition
|
time
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
blame_pre
|
blame
|
99
|
5.859
|
0.452
|
0.045
|
0.090
|
poor
|
blame_post
|
blame
|
99
|
5.323
|
1.132
|
0.114
|
0.226
|
middle_class
|
blame_pre
|
blame
|
100
|
5.830
|
0.533
|
0.053
|
0.106
|
middle_class
|
blame_post
|
blame
|
100
|
5.240
|
0.976
|
0.098
|
0.194
|
rich
|
blame_pre
|
blame
|
101
|
5.842
|
0.731
|
0.073
|
0.144
|
rich
|
blame_post
|
blame
|
101
|
5.426
|
1.023
|
0.102
|
0.202
|
ANOVA
# Mixed model
res.aov <- anova_test(
data = df2, dv = blame, wid = id,
between = condition, within = time
)
get_anova_table(res.aov)
## ANOVA Table (type III tests)
##
## Effect DFn DFd F p p<.05 ges
## 1 condition 2 297 0.477 6.21e-01 0.002
## 2 time 1 297 98.240 3.42e-20 * 0.085
## 3 condition:time 2 297 0.990 3.73e-01 0.002
one.way <- df2 %>%
group_by(time) %>%
anova_test(dv = blame, wid = id, between = condition) %>%
get_anova_table() %>%
adjust_pvalue(method = "bonferroni")
one.way
## # A tibble: 2 × 9
## time Effect DFn DFd F p `p<.05` ges p.adj
## <fct> <chr> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> <dbl>
## 1 blame_pre condition 2 297 0.06 0.942 "" 0.000405 1
## 2 blame_post condition 2 297 0.796 0.452 "" 0.005 0.904
# Pairwise comparisons between group levels
pwc <- df2 %>%
group_by(time) %>%
pairwise_t_test(blame ~ condition, p.adjust.method = "bonferroni")
pwc
## # A tibble: 6 × 10
## time .y. group1 group2 n1 n2 p p.signif p.adj p.adj.signif
## * <fct> <chr> <chr> <chr> <int> <int> <dbl> <chr> <dbl> <chr>
## 1 blame_pre blame poor middl… 99 100 0.731 ns 1 ns
## 2 blame_pre blame poor rich 99 101 0.837 ns 1 ns
## 3 blame_pre blame middle_… rich 100 101 0.888 ns 1 ns
## 4 blame_post blame poor middl… 99 100 0.575 ns 1 ns
## 5 blame_post blame poor rich 99 101 0.489 ns 1 ns
## 6 blame_post blame middle_… rich 100 101 0.209 ns 0.627 ns
# Effect of time at each level of exercises group
one.way2 <- df2 %>%
group_by(condition) %>%
anova_test(dv = blame, wid = id, within = time) %>%
get_anova_table() %>%
adjust_pvalue(method = "bonferroni")
one.way2
## # A tibble: 3 × 9
## condition Effect DFn DFd F p `p<.05` ges p.adj
## <fct> <chr> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> <dbl>
## 1 poor time 1 98 30.0 0.000000331 * 0.089 9.93e-7
## 2 middle_class time 1 99 44.1 0.00000000171 * 0.125 5.13e-9
## 3 rich time 1 100 25.5 0.00000201 * 0.052 6.03e-6
# Pairwise comparisons between time points at each group levels
# Paired t-test is used because we have repeated measures by time
pwc2 <- df2 %>%
group_by(condition) %>%
pairwise_t_test(
blame ~ time, paired = TRUE,
p.adjust.method = "bonferroni"
) %>%
dplyr::select(-statistic, -p) # Remove details
pwc2
## # A tibble: 3 × 9
## condition .y. group1 group2 n1 n2 df p.adj p.adj.signif
## <fct> <chr> <chr> <chr> <int> <int> <dbl> <dbl> <chr>
## 1 poor blame blame_pre blame_post 99 99 98 3.31e-7 ****
## 2 middle_class blame blame_pre blame_post 100 100 99 1.71e-9 ****
## 3 rich blame blame_pre blame_post 101 101 100 2.01e-6 ****
Plots & Comparisons


punish_post
Q5: Punishment (post-backstory) that David deserves for his actions
[0 = No punishment at all, 6 = Severe punishment]
Summary
condition
|
time
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
punish_pre
|
punish
|
99
|
5.293
|
0.848
|
0.085
|
0.169
|
poor
|
punish_post
|
punish
|
99
|
4.838
|
1.193
|
0.120
|
0.238
|
middle_class
|
punish_pre
|
punish
|
100
|
5.380
|
0.862
|
0.086
|
0.171
|
middle_class
|
punish_post
|
punish
|
100
|
4.990
|
1.030
|
0.103
|
0.204
|
rich
|
punish_pre
|
punish
|
101
|
5.366
|
0.821
|
0.082
|
0.162
|
rich
|
punish_post
|
punish
|
101
|
5.099
|
0.985
|
0.098
|
0.194
|
ANOVA
# Mixed model
res.aov <- anova_test(
data = df3, dv = punish, wid = id,
between = condition, within = time
)
get_anova_table(res.aov)
## ANOVA Table (type III tests)
##
## Effect DFn DFd F p p<.05 ges
## 1 condition 2 297 0.939 3.92e-01 0.005
## 2 time 1 297 71.103 1.49e-15 * 0.036
## 3 condition:time 2 297 1.564 2.11e-01 0.002
one.way <- df3 %>%
group_by(time) %>%
anova_test(dv = punish, wid = id, between = condition) %>%
get_anova_table() %>%
adjust_pvalue(method = "bonferroni")
one.way
## # A tibble: 2 × 9
## time Effect DFn DFd F p `p<.05` ges p.adj
## <fct> <chr> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> <dbl>
## 1 punish_pre condition 2 297 0.306 0.736 "" 0.002 1
## 2 punish_post condition 2 297 1.49 0.227 "" 0.01 0.454
# Pairwise comparisons between group levels
pwc <- df3 %>%
group_by(time) %>%
pairwise_t_test(punish ~ condition, p.adjust.method = "bonferroni")
pwc
## # A tibble: 6 × 10
## time .y. group1 group2 n1 n2 p p.signif p.adj p.adj.signif
## * <fct> <chr> <chr> <chr> <int> <int> <dbl> <chr> <dbl> <chr>
## 1 punish_pre puni… poor middl… 99 100 0.467 ns 1 ns
## 2 punish_pre puni… poor rich 99 101 0.539 ns 1 ns
## 3 punish_pre puni… middl… rich 100 101 0.909 ns 1 ns
## 4 punish_post puni… poor middl… 99 100 0.319 ns 0.958 ns
## 5 punish_post puni… poor rich 99 101 0.0867 ns 0.26 ns
## 6 punish_post puni… middl… rich 100 101 0.472 ns 1 ns
# Effect of time at each level of exercises group
one.way2 <- df3 %>%
group_by(condition) %>%
anova_test(dv = punish, wid = id, within = time) %>%
get_anova_table() %>%
adjust_pvalue(method = "bonferroni")
one.way2
## # A tibble: 3 × 9
## condition Effect DFn DFd F p `p<.05` ges p.adj
## <fct> <chr> <dbl> <dbl> <dbl> <dbl> <chr> <dbl> <dbl>
## 1 poor time 1 98 25.5 0.00000203 * 0.046 0.00000609
## 2 middle_class time 1 99 31.5 0.000000181 * 0.041 0.000000543
## 3 rich time 1 100 15.8 0.000135 * 0.021 0.000405
# Pairwise comparisons between time points at each group levels
# Paired t-test is used because we have repeated measures by time
pwc2 <- df3 %>%
group_by(condition) %>%
pairwise_t_test(
punish ~ time, paired = TRUE,
p.adjust.method = "bonferroni"
) %>%
dplyr::select(-statistic, -p) # Remove details
pwc2
## # A tibble: 3 × 9
## condition .y. group1 group2 n1 n2 df p.adj p.adj.signif
## <fct> <chr> <chr> <chr> <int> <int> <dbl> <dbl> <chr>
## 1 poor punish punish_pre punish_… 99 99 98 2.03e-6 ****
## 2 middle_class punish punish_pre punish_… 100 100 99 1.81e-7 ****
## 3 rich punish punish_pre punish_… 101 101 100 1.35e-4 ***
Plots & Comparisons


surprise
Q7: Surprise after learning of David’s criminal behavior [0=Not
surprised at all, 6=Extremely surprised]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
surprise
|
99
|
2.273
|
1.671
|
0.168
|
0.333
|
middle_class
|
surprise
|
100
|
2.440
|
1.572
|
0.157
|
0.312
|
rich
|
surprise
|
101
|
2.228
|
1.708
|
0.170
|
0.337
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: surprise
## Sum Sq Df F value Pr(>F)
## condition 2.51 2 0.4598 0.6319
## Residuals 810.04 297
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -----------------------------------
## condition | 3.09e-03 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.06 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.476
|
ns
|
1
|
ns
|
-0.1031
|
-0.40
|
0.18
|
negligible
|
poor
|
rich
|
99
|
101
|
0.847
|
ns
|
1
|
ns
|
0.0266
|
-0.23
|
0.30
|
negligible
|
middle_class
|
rich
|
100
|
101
|
0.363
|
ns
|
1
|
ns
|
0.1293
|
-0.13
|
0.40
|
negligible
|
character
Q8: David’s moral character [0 = Very immoral, 6= Very moral]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
character
|
99
|
2.354
|
1.264
|
0.127
|
0.252
|
middle_class
|
character
|
100
|
2.210
|
1.225
|
0.123
|
0.243
|
rich
|
character
|
101
|
1.851
|
1.252
|
0.125
|
0.247
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: character
## Sum Sq Df F value Pr(>F)
## condition 13.41 2 4.3099 0.01429 *
## Residuals 461.99 297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -------------------------------
## condition | 0.03 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.17 | [0.06, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.4180
|
ns
|
0.4180
|
ns
|
0.1153
|
-0.1600
|
0.41
|
negligible
|
poor
|
rich
|
99
|
101
|
0.0047
|
**
|
0.0142
|
*
|
0.3991
|
0.1300
|
0.67
|
small
|
middle_class
|
rich
|
100
|
101
|
0.0425
|
*
|
0.0850
|
ns
|
0.2894
|
0.0084
|
0.59
|
small
|
wrongness
Q9: Wrongness of David’s actions [0 = Not wrong at all, 6 = Extremely
wrong]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
wrongness
|
99
|
5.576
|
0.834
|
0.084
|
0.166
|
middle_class
|
wrongness
|
100
|
5.720
|
0.683
|
0.068
|
0.135
|
rich
|
wrongness
|
101
|
5.752
|
0.767
|
0.076
|
0.151
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: wrongness
## Sum Sq Df F value Pr(>F)
## condition 1.763 2 1.512 0.2222
## Residuals 173.154 297
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -------------------------------
## condition | 0.01 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.10 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.184
|
ns
|
0.368
|
ns
|
-0.1893
|
-0.45
|
0.11
|
negligible
|
poor
|
rich
|
99
|
101
|
0.103
|
ns
|
0.309
|
ns
|
-0.2207
|
-0.52
|
0.07
|
small
|
middle_class
|
rich
|
100
|
101
|
0.763
|
ns
|
0.763
|
ns
|
-0.0447
|
-0.36
|
0.21
|
negligible
|
justification
Q10: Justifiability of David’s actions [0 = Not justifiable at all, 6
= Completely justifiable]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
justification
|
99
|
0.646
|
1.232
|
0.124
|
0.246
|
middle_class
|
justification
|
100
|
0.680
|
1.286
|
0.129
|
0.255
|
rich
|
justification
|
101
|
0.436
|
1.004
|
0.100
|
0.198
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: justification
## Sum Sq Df F value Pr(>F)
## condition 3.53 2 1.2681 0.2829
## Residuals 413.22 297
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -----------------------------------
## condition | 8.47e-03 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.09 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.841
|
ns
|
0.841
|
ns
|
-0.0266
|
-0.30
|
0.27
|
negligible
|
poor
|
rich
|
99
|
101
|
0.207
|
ns
|
0.429
|
ns
|
0.1878
|
-0.11
|
0.47
|
negligible
|
middle_class
|
rich
|
100
|
101
|
0.143
|
ns
|
0.429
|
ns
|
0.2119
|
-0.06
|
0.48
|
small
|
reasons
Q11: Agreement with David having good reasons for his actions [0 =
Definitely not, 6 = Definitely yes]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
reasons
|
99
|
1.081
|
1.536
|
0.154
|
0.306
|
middle_class
|
reasons
|
100
|
1.310
|
1.656
|
0.166
|
0.329
|
rich
|
reasons
|
101
|
1.020
|
1.463
|
0.146
|
0.289
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: reasons
## Sum Sq Df F value Pr(>F)
## condition 4.69 2 0.9723 0.3794
## Residuals 716.70 297
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -----------------------------------
## condition | 6.51e-03 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.08 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.299
|
ns
|
0.598
|
ns
|
-0.1435
|
-0.40
|
0.14
|
negligible
|
poor
|
rich
|
99
|
101
|
0.781
|
ns
|
0.781
|
ns
|
0.0407
|
-0.23
|
0.29
|
negligible
|
middle_class
|
rich
|
100
|
101
|
0.186
|
ns
|
0.558
|
ns
|
0.1858
|
-0.07
|
0.46
|
negligible
|
guilt
Q12: Agreement with David experiencing guilt about his actions [0 =
Not at all, 6 = Extremely]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
guilt
|
99
|
4.253
|
1.710
|
0.172
|
0.341
|
middle_class
|
guilt
|
100
|
4.470
|
1.446
|
0.145
|
0.287
|
rich
|
guilt
|
101
|
3.525
|
1.787
|
0.178
|
0.353
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: guilt
## Sum Sq Df F value Pr(>F)
## condition 49.30 2 9.0065 0.0001594 ***
## Residuals 812.78 297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -------------------------------
## condition | 0.06 | [0.02, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.25 | [0.14, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.3550
|
ns
|
0.3550
|
ns
|
-0.1374
|
-0.42
|
0.13
|
negligible
|
poor
|
rich
|
99
|
101
|
0.0021
|
**
|
0.0041
|
**
|
0.4160
|
0.15
|
0.71
|
small
|
middle_class
|
rich
|
100
|
101
|
0.0001
|
****
|
0.0002
|
***
|
0.5814
|
0.31
|
0.86
|
moderate
|
SFC
Q13: Agreement with David having chosen to have his moral character
[0 = Not at all, 6 = Extremely]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
SFC
|
99
|
2.990
|
1.488
|
0.150
|
0.297
|
middle_class
|
SFC
|
100
|
3.460
|
1.480
|
0.148
|
0.294
|
rich
|
SFC
|
101
|
3.406
|
1.478
|
0.147
|
0.292
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: SFC
## Sum Sq Df F value Pr(>F)
## condition 13.16 2 2.9966 0.05147 .
## Residuals 652.19 297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -------------------------------
## condition | 0.02 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.14 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.026
|
*
|
0.078
|
ns
|
-0.3168
|
-0.61
|
-0.060
|
small
|
poor
|
rich
|
99
|
101
|
0.048
|
*
|
0.096
|
ns
|
-0.2806
|
-0.57
|
0.003
|
small
|
middle_class
|
rich
|
100
|
101
|
0.796
|
ns
|
0.796
|
ns
|
0.0366
|
-0.25
|
0.340
|
negligible
|
CF
Q14: Agreement with David’s moral character determined by the
circumstances of his childhood [0 = Not at all, 6 = Extremely]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
CF
|
99
|
3.909
|
1.341
|
0.135
|
0.267
|
middle_class
|
CF
|
100
|
3.870
|
1.405
|
0.140
|
0.279
|
rich
|
CF
|
101
|
3.802
|
1.407
|
0.140
|
0.278
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: CF
## Sum Sq Df F value Pr(>F)
## condition 0.59 2 0.1535 0.8578
## Residuals 569.53 297
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -----------------------------------
## condition | 1.03e-03 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.03 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.842
|
ns
|
1
|
ns
|
0.0285
|
-0.25
|
0.30
|
negligible
|
poor
|
rich
|
99
|
101
|
0.585
|
ns
|
1
|
ns
|
0.0779
|
-0.21
|
0.35
|
negligible
|
middle_class
|
rich
|
100
|
101
|
0.728
|
ns
|
1
|
ns
|
0.0484
|
-0.23
|
0.34
|
negligible
|
SE
Q15: Agreement with David’s behavior reflecting his moral character
[0 = Not at all, 6 = Extremely]
Summary
condition
|
variable
|
n
|
mean
|
sd
|
se
|
ci
|
poor
|
SE
|
99
|
3.727
|
1.456
|
0.146
|
0.290
|
middle_class
|
SE
|
100
|
3.620
|
1.324
|
0.132
|
0.263
|
rich
|
SE
|
101
|
4.030
|
1.300
|
0.129
|
0.257
|
ANOVA
## $output1
## Anova Table (Type II tests)
##
## Response: SE
## Sum Sq Df F value Pr(>F)
## condition 9.08 2 2.451 0.08795 .
## Residuals 550.11 297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## $output2
## # Effect Size for ANOVA
##
## Parameter | Eta2 | 95% CI
## -------------------------------
## condition | 0.02 | [0.00, 1.00]
##
## - One-sided CIs: upper bound fixed at [1.00].
## $output3
## # Effect Size for ANOVA
##
## Parameter | Cohen's f | 95% CI
## -----------------------------------
## condition | 0.13 | [0.00, Inf]
##
## - One-sided CIs: upper bound fixed at [Inf].
Plots & Comparisons
group1
|
group2
|
n1
|
n2
|
p
|
p.signif
|
p.adj
|
p.adj.signif
|
effsize
|
conf.low
|
conf.high
|
Cohens’ d
|
poor
|
middle_class
|
99
|
100
|
0.5790
|
ns
|
0.5790
|
ns
|
0.0771
|
-0.22
|
0.36
|
negligible
|
poor
|
rich
|
99
|
101
|
0.1170
|
ns
|
0.2340
|
ns
|
-0.2193
|
-0.52
|
0.03
|
small
|
middle_class
|
rich
|
100
|
101
|
0.0337
|
*
|
0.1011
|
ns
|
-0.3123
|
-0.61
|
-0.04
|
small
|