Valid entries and size of groups

There is a total of 301 entries in the dataset. 1 participants failed the attention check. The valid number of entries is n = 300.

condition n percentage
poor 99 33.00%
middle_class 100 33.33%
rich 101 33.67%

Effect of condition on DVs (ANOVAs)

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

Effect of condition on DVs (Regression)

Dummy coding:

0: poor

1: middle_class

2: rich

Effect of manip_check on DVs