Commit 8a6ec7ba authored by Bonte Bruno's avatar Bonte Bruno

tites modifs

parent 50ed4b3a
......@@ -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")
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment