diff --git a/iat-leem-analysis.R b/iat-leem-analysis.R index 0be17a2d9edd25c7de3dff461478104686d747d7..2bf02ebc8dfea12c55442a6b85fecf58b817a701 100644 --- a/iat-leem-analysis.R +++ b/iat-leem-analysis.R @@ -48,7 +48,7 @@ iat_scores_train <- alldata %>% alldata %>% filter(reactionTime < 3000) %>% filter(reactionTime > 300) %>% - filter(trial == 4 | (trial ==7)) %>% + filter(trial == 4 | (trial == 7)) %>% mutate(category = recode_factor(category, "A"= "Appropriation", "P"= "Partage", @@ -136,21 +136,11 @@ iat_scores %>% width = 29.7 /2, units = "cm") -items <- list(c("compétition", - "gain", - "profit", - "winner", - "performance"), - c("coopération", - "équité", - "égalité", - "gentillesse", - "solidarité"), - c("je", - "soi", - "mon"), - c("autre", - "eux", - "pas moi")) - - +iat_scores %>% + select(id,d) %>% + filter(id != 103374404, + id != 291727775, + id != 51558243, + id != 606820006, + id != 838929080) %>% + write.csv("iat-scores.csv")