From 8a6ec7bad155cc6d143634dea67c068ca1b18b46 Mon Sep 17 00:00:00 2001
From: Bruno Bonte <bruno.bonte@irstea.fr>
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