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