socrates analysis

Data overview

what kind of vignettes do we have in the data:

df %>%group_by(session.config.vignette)%>%tally%>%kbl()

session.config.vignette	n
Base Rate Scooter	434
Belief Bias Affirm Consequent Bezos	375
Gettier Car	423
Wason	396

what kind of treatments do we have

df %>%group_by(second.1.player.treatment)%>%tally%>%kbl()

second.1.player.treatment	n
dependent	267
independent	252
no reward discussion	246
no_reward	517
solo_reasoning	346

Do people change their confidence from first to second opinion?

df%>%
  select(participant.code,
         first.1.player.confidence,
         second.1.player.confidence)%>%
  pivot_longer(cols=-participant.code)%>%
  pairwise_t_test(value~name)

## # A tibble: 1 × 9
##   .y.   group1            group2    n1    n2      p p.signif  p.adj p.adj.signif
## * <chr> <chr>             <chr>  <int> <int>  <dbl> <chr>     <dbl> <chr>       
## 1 value first.1.player.c… secon…  1628  1628 0.0297 *        0.0297 *