setwd("/Users/emiel/Downloads/errortypes")
library(tidyverse)
library(ggpubr)
library(rstatix)
mydata = read.csv("prepared_data.csv")
mydata$id <- seq.int(nrow(mydata))
transformed = mydata %>%
gather(key="error", value="score",
Gender_mean, Age_mean, clothingtype_mean, clothingcolor_mean) %>%
convert_as_factor(id, score)
transformed$score = as.numeric(transformed$score)
res.aov <- anova_test(data = transformed, dv = score, wid = id, within = error)
get_anova_table(res.aov)
pwc <- transformed %>%
pairwise_t_test(
score ~ error, paired = TRUE,
p.adjust.method = "bonferroni"
)
pwc
View(pwc)
x = as.data.frame(pwc)
View(x)
write.csv(x,"pwc.csv")
View(mydata)
transformed = mydata %>%
gather(key="error", value="score",
young2old,old2young) %>%
convert_as_factor(id, score)
transformed$score = as.numeric(transformed$score)
res.aov <- anova_test(data = transformed, dv = score, wid = id, within = error)
get_anova_table(res.aov)
pwc <- transformed %>%
pairwise_t_test(
score ~ error, paired = TRUE
)
pwc
View(transformed)
transformed = mydata %>%
gather(key="error", value="score",
male2female,female2male) %>%
convert_as_factor(id, score)
transformed$score = as.numeric(transformed$score)
pwc <- transformed %>%
pairwise_t_test(
score ~ error, paired = TRUE
)
pwc
