From 8a6ec7bad155cc6d143634dea67c068ca1b18b46 Mon Sep 17 00:00:00 2001 From: Bruno Bonte Date: Fri, 14 Feb 2020 17:07:13 +0100 Subject: [PATCH] tites modifs --- iat-leem-analysis.R | 28 +++++++++------------------- 1 file changed, 9 insertions(+), 19 deletions(-) diff --git a/iat-leem-analysis.R b/iat-leem-analysis.R index 0be17a2..2bf02eb 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") -- GitLab