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")