diff --git a/organise-iat-data.R b/organise-iat-data.R
index 2481f4cac1529cdb4e9225d615b39d31c8f901c0..b034a3c1966e2fd9a210592a18d646f79f2c62a5 100644
--- a/organise-iat-data.R
+++ b/organise-iat-data.R
@@ -1,8 +1,20 @@
+#Addapted from the script IAT-master
+
#load basic libraries for graphs
library(dplyr)
library(tidyr)
library(ggplot2)
library(stringr)
+library(lubridate)
+
+# Give sessions dates to estimate if iat tests
+# are performed pre/during/post/NO sessions
+
+sessionCode =c("tcld3490",)
+sessionDate =c("2020-02-24 10:00:00 CET",)
+sessionType =c("T1",)
+sessions = data.frame() %>%
+ tbl_df()
# Set the path to the IAT folder here (be sure to include trailing slash)
# on Linux (use a single forward slash):
@@ -17,46 +29,6 @@ fd = '/'
expe.name = "expe-lem"
output.dir = paste(base.dir,"data",fd,expe.name,sep="")
-# Summary from IATmaster package analysis
-#----------------------------------------
-setwd(output.dir)
-output.files = list.files()
-data.list = lapply(output.files, read.table, sep = ",")
-summarized <- data.frame(matrix(ncol=9,nrow=length(data.list)))
-names(summarized) <- c("Id","Date","Block4.m","Block4.sd","Block7.m","Block7.sd","diff","full.sd",'d')
-
-for(i in 1:length(data.list))
-{
- filename = strsplit(output.files[i],'-')
- id = filename[[1]][2]
- iat.date = paste(filename[[1]][4],"-",filename[[1]][5],"-",filename[[1]][3]," ",filename[[1]][6],":",substr(filename[[1]][7],1,2),sep="")
- block4.m = mean(as.numeric(unlist(subset(data.list[[i]], V1==3 & V6>300 & V6 < 3000, select="V6"))))
- block7.m = mean(as.numeric(unlist(subset(data.list[[i]], V1==6 & V6>300 & V6 < 3000, select="V6"))))
- block4.sd = sd(as.numeric(unlist(subset(data.list[[i]], V1==3 & V6>300 & V6 < 3000, select="V6"))))
- block7.sd = sd(as.numeric(unlist(subset(data.list[[i]], V1==6 & V6>300 & V6 < 3000, select="V6"))))
- full.sd = sd(as.numeric(unlist(subset(data.list[[i]], (V1==6 | V1==3) & V6>300 & V6 < 3000, select="V6"))))
- diff = block7.m - block4.m
- d = diff / full.sd
- summarized[i,] = c(id, iat.date, block4.m, block4.sd, block7.m, block7.sd, diff, full.sd, d)
-}
-rm(block4.m,block4.sd,block7.m,block7.sd,d,data.list,diff,filename,full.sd,i,iat.date,id,output.files)
-
-setwd(paste(base.dir,"data",sep=""))
-write.csv(summarized %>%
- mutate(Block4.m = as.numeric(Block4.m)) %>%
- mutate(Block4.sd = as.numeric(Block4.sd)) %>%
- mutate(Block7.m = as.numeric(Block7.m)) %>%
- mutate(Block7.sd = as.numeric(Block7.sd)) %>%
- mutate(diff = as.numeric(diff)) %>%
- mutate(d = as.numeric(d)) %>%
- mutate(full.sd = as.numeric(full.sd)),
- paste0("summarized-", expe.name,".csv"),
- row.names = F)
-
-summarized %>% tbl_df()
-
-
-
# Compilation of all datas of an experiment in a single file
#----------------------------------------
@@ -76,6 +48,8 @@ for(i in 1:length(data.list))
"error",
"reactionTime")
dat$id <- filename[[1]][2]
+ dat$date <- as.Date(paste(filename[[1]][3:5], collapse = "-"))
+ dat$time <- as.Date(paste(c(filename[[1]][6:7],"00"), collapse = ":"))
alldata <- alldata %>%
rbind(dat)
}
@@ -84,6 +58,7 @@ alldata <- alldata %>%
tbl_df()
setwd(paste(base.dir,"data",sep=""))
+
write.csv(alldata,
- paste0("alldata-", expe.name,".csv"),
+ paste0("iat-times-", expe.name,".csv"),
row.names = F)
diff --git a/script-iat-master.R b/script-iat-master.R
new file mode 100644
index 0000000000000000000000000000000000000000..d955b48bec54ce2b1d024a7d07332fd1334b6d1c
--- /dev/null
+++ b/script-iat-master.R
@@ -0,0 +1,50 @@
+# Set the path to the IAT folder here (be sure to include trailing slash)
+# on Linux (use a single forward slash):
+base.dir = "~/git/aiat/"
+# on Windows (use double forward slashes):
+# base.dir = "C://Users//winteram//Documents//IAT//"
+
+# File delimiter = '/' for Unix/Max, '//' for Windows
+fd = '/'
+
+# Set the template you want to analyze here
+expe.name = "expe-lem"
+output.dir = paste(base.dir,"data",fd,expe.name,sep="")
+
+# Summary from IATmaster package analysis
+#----------------------------------------
+setwd(output.dir)
+output.files = list.files()
+data.list = lapply(output.files, read.table, sep = ",")
+summarized <- data.frame(matrix(ncol=9,nrow=length(data.list)))
+names(summarized) <- c("Id","Date","Block4.m","Block4.sd","Block7.m","Block7.sd","diff","full.sd",'d')
+
+for(i in 1:length(data.list))
+{
+ filename = strsplit(output.files[i],'-')
+ id = filename[[1]][2]
+ iat.date = paste(filename[[1]][4],"-",filename[[1]][5],"-",filename[[1]][3]," ",filename[[1]][6],":",substr(filename[[1]][7],1,2),sep="")
+ block4.m = mean(as.numeric(unlist(subset(data.list[[i]], V1==3 & V6>300 & V6 < 3000, select="V6"))))
+ block7.m = mean(as.numeric(unlist(subset(data.list[[i]], V1==6 & V6>300 & V6 < 3000, select="V6"))))
+ block4.sd = sd(as.numeric(unlist(subset(data.list[[i]], V1==3 & V6>300 & V6 < 3000, select="V6"))))
+ block7.sd = sd(as.numeric(unlist(subset(data.list[[i]], V1==6 & V6>300 & V6 < 3000, select="V6"))))
+ full.sd = sd(as.numeric(unlist(subset(data.list[[i]], (V1==6 | V1==3) & V6>300 & V6 < 3000, select="V6"))))
+ diff = block7.m - block4.m
+ d = diff / full.sd
+ summarized[i,] = c(id, iat.date, block4.m, block4.sd, block7.m, block7.sd, diff, full.sd, d)
+}
+rm(block4.m,block4.sd,block7.m,block7.sd,d,data.list,diff,filename,full.sd,i,iat.date,id,output.files)
+
+setwd(paste(base.dir,"data",sep=""))
+write.csv(summarized %>%
+ mutate(Block4.m = as.numeric(Block4.m)) %>%
+ mutate(Block4.sd = as.numeric(Block4.sd)) %>%
+ mutate(Block7.m = as.numeric(Block7.m)) %>%
+ mutate(Block7.sd = as.numeric(Block7.sd)) %>%
+ mutate(diff = as.numeric(diff)) %>%
+ mutate(d = as.numeric(d)) %>%
+ mutate(full.sd = as.numeric(full.sd)),
+ paste0("summarized-", expe.name,".csv"),
+ row.names = F)
+
+summarized %>% tbl_df()