singmann

# requires data from: https://github.com/ag-perception-wallis-lab/bayesian_reanalysis_vogelsang2024

library("afex")

df_long$acc <- df_long$Successes / 100
df_long$n <- 100

### RM-ANOVA (shows interaction)
a1 <- afex::aov_car(
  acc ~ Group * ImageType + Error(Subject / ImageType),