setwd("/Users/giacomoguidali/Library/CloudStorage/GoogleDrive-g.guidali@campus.unimib.it/Il mio Drive/Post-Doc BS/MoBi P15/4 - Analisi/TEP/P15/Robust ANOVA") #set directory

rm(list = ls()) # pulisco il workspace, male non fa
library(WRS2)

M1P15latency_raw <- read.csv("P15latency_robustANOVA.csv",header=T,sep=";", dec=",") #importo database

#rmANOVA + post-hoc
rmanova(M1P15latency_raw$Latency, M1P15latency_raw$Condition, M1P15latency_raw$Subject , tr = 0.2)
rmmcp(M1P15latency_raw$Latency, M1P15latency_raw$Condition, M1P15latency_raw$Subject, tr = 0.2, alpha = 0.05)