Carica file su 'Dataset and analysis'

Dataset and analysis/Database rMT_robustANOVABiphasic.csv

@@ -0,0 +1,85 @@
+Subject;rMT;Condition
+1;0,526;Bi_PA
+2;0,586;Bi_PA
+4;0,512;Bi_PA
+5;0,582;Bi_PA
+6;0,639;Bi_PA
+7;0,671;Bi_PA
+8;0,389;Bi_PA
+9;0,738;Bi_PA
+11;0,644;Bi_PA
+13;0,615;Bi_PA
+14;0,539;Bi_PA
+15;0,717;Bi_PA
+16;0,502;Bi_PA
+18;0,534;Bi_PA
+19;0,644;Bi_PA
+20;0,653;Bi_PA
+25;0,571;Bi_PA
+27;0,61;Bi_PA
+29;0,66;Bi_PA
+30;0,588;Bi_PA
+31;0,582;Bi_PA
+33;0,603;Bi_PA
+34;0,547;Bi_PA
+36;0,554;Bi_PA
+37;0,529;Bi_PA
+38;0,595;Bi_PA
+39;0,574;Bi_PA
+40;0,491;Bi_PA
+1;0,646;Bi_AP
+2;0,682;Bi_AP
+4;0,497;Bi_AP
+5;0,688;Bi_AP
+6;0,815;Bi_AP
+7;0,733;Bi_AP
+8;0,417;Bi_AP
+9;0,74;Bi_AP
+11;0,758;Bi_AP
+13;0,687;Bi_AP
+14;0,589;Bi_AP
+15;0,799;Bi_AP
+16;0,649;Bi_AP
+18;0,596;Bi_AP
+19;0,754;Bi_AP
+20;0,57;Bi_AP
+25;0,658;Bi_AP
+27;0,809;Bi_AP
+29;0,724;Bi_AP
+30;0,629;Bi_AP
+31;0,672;Bi_AP
+33;0,648;Bi_AP
+34;0,606;Bi_AP
+36;0,621;Bi_AP
+37;0,496;Bi_AP
+38;0,773;Bi_AP
+39;0,669;Bi_AP
+40;0,488;Bi_AP
+1;0,55;Bi_LM
+2;0,793;Bi_LM
+4;0,566;Bi_LM
+5;0,638;Bi_LM
+6;0,638;Bi_LM
+7;0,822;Bi_LM
+8;0,38;Bi_LM
+9;0,82;Bi_LM
+11;0,767;Bi_LM
+13;0,623;Bi_LM
+14;0,62;Bi_LM
+15;0,783;Bi_LM
+16;0,67;Bi_LM
+18;0,574;Bi_LM
+19;0,766;Bi_LM
+20;0,733;Bi_LM
+25;0,617;Bi_LM
+27;0,807;Bi_LM
+29;0,723;Bi_LM
+30;0,704;Bi_LM
+31;0,666;Bi_LM
+33;0,686;Bi_LM
+34;0,72;Bi_LM
+36;0,576;Bi_LM
+37;0,582;Bi_LM
+38;0,65;Bi_LM
+39;0,807;Bi_LM
+40;0,548;Bi_LM

Dataset and analysis/P15 latency rmANOVA_robust.R

@@ -0,0 +1,10 @@
+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)

Dataset and analysis/P15latency_dataset_for_robustANOVA.csv

@@ -0,0 +1,169 @@
+Subject;Latency;Condition;Name
+1;18,333333;4;Bi_PA
+2;17,708333;4;Bi_PA
+4;7,0833333;4;Bi_PA
+5;20;4;Bi_PA
+6;16,041667;4;Bi_PA
+7;25;4;Bi_PA
+8;25;4;Bi_PA
+9;15,416667;4;Bi_PA
+11;20;4;Bi_PA
+13;12,916667;4;Bi_PA
+14;25;4;Bi_PA
+15;15;4;Bi_PA
+16;25;4;Bi_PA
+18;16,041667;4;Bi_PA
+19;17,291667;4;Bi_PA
+20;16,458333;4;Bi_PA
+25;15,416667;4;Bi_PA
+27;11,25;4;Bi_PA
+29;15,208333;4;Bi_PA
+30;13,125;4;Bi_PA
+31;18,541667;4;Bi_PA
+33;11,666667;4;Bi_PA
+34;11,666667;4;Bi_PA
+36;14,375;4;Bi_PA
+37;25;4;Bi_PA
+38;17,291667;4;Bi_PA
+39;17,083333;4;Bi_PA
+40;12,916667;4;Bi_PA
+1;25;5;Bi_AP
+2;22,291667;5;Bi_AP
+4;17,708333;5;Bi_AP
+5;20,625;5;Bi_AP
+6;18,541667;5;Bi_AP
+7;19,583333;5;Bi_AP
+8;25;5;Bi_AP
+9;25;5;Bi_AP
+11;25;5;Bi_AP
+13;19,166667;5;Bi_AP
+14;24,166667;5;Bi_AP
+15;25;5;Bi_AP
+16;21,875;5;Bi_AP
+18;16,041667;5;Bi_AP
+19;19,375;5;Bi_AP
+20;16,458333;5;Bi_AP
+25;25;5;Bi_AP
+27;19,375;5;Bi_AP
+29;17,291667;5;Bi_AP
+30;25;5;Bi_AP
+31;23,333333;5;Bi_AP
+33;25;5;Bi_AP
+34;25;5;Bi_AP
+36;16,041667;5;Bi_AP
+37;25;5;Bi_AP
+38;18,541667;5;Bi_AP
+39;19,375;5;Bi_AP
+40;22,291667;5;Bi_AP
+1;15,208333;6;Bi_LM
+2;20,208333;6;Bi_LM
+4;13,958333;6;Bi_LM
+5;18,958333;6;Bi_LM
+6;16,041667;6;Bi_LM
+7;18,333333;6;Bi_LM
+8;7,0833333;6;Bi_LM
+9;13,541667;6;Bi_LM
+11;23,125;6;Bi_LM
+13;15,416667;6;Bi_LM
+14;9,1666667;6;Bi_LM
+15;16,25;6;Bi_LM
+16;18,958333;6;Bi_LM
+18;15,416667;6;Bi_LM
+19;14,375;6;Bi_LM
+20;10,833333;6;Bi_LM
+25;14,583333;6;Bi_LM
+27;14,583333;6;Bi_LM
+29;13,958333;6;Bi_LM
+30;15,208333;6;Bi_LM
+31;20,833333;6;Bi_LM
+33;13,125;6;Bi_LM
+34;7,7083333;6;Bi_LM
+36;16,25;6;Bi_LM
+37;25;6;Bi_LM
+38;17,083333;6;Bi_LM
+39;7,0833333;6;Bi_LM
+40;15;6;Bi_LM
+1;17,5;1;Mo_PA
+2;16,666667;1;Mo_PA
+4;7,0833333;1;Mo_PA
+5;16,875;1;Mo_PA
+6;17,708333;1;Mo_PA
+7;25;1;Mo_PA
+8;13,125;1;Mo_PA
+9;25;1;Mo_PA
+11;17,5;1;Mo_PA
+13;7,0833333;1;Mo_PA
+14;7,0833333;1;Mo_PA
+15;7,0833333;1;Mo_PA
+16;22,916667;1;Mo_PA
+18;16,041667;1;Mo_PA
+19;17,5;1;Mo_PA
+20;7,0833333;1;Mo_PA
+25;17,916667;1;Mo_PA
+27;11,25;1;Mo_PA
+29;25;1;Mo_PA
+30;11,875;1;Mo_PA
+31;17,083333;1;Mo_PA
+33;11,458333;1;Mo_PA
+34;25;1;Mo_PA
+36;14,166667;1;Mo_PA
+37;25;1;Mo_PA
+38;15,416667;1;Mo_PA
+39;20,208333;1;Mo_PA
+40;14,583333;1;Mo_PA
+1;25;2;Mo_AP
+2;25;2;Mo_AP
+4;25;2;Mo_AP
+5;23,125;2;Mo_AP
+6;18,125;2;Mo_AP
+7;19,166667;2;Mo_AP
+8;25;2;Mo_AP
+9;8,5416667;2;Mo_AP
+11;25;2;Mo_AP
+13;8,3333333;2;Mo_AP
+14;25;2;Mo_AP
+15;16,25;2;Mo_AP
+16;18,541667;2;Mo_AP
+18;15,208333;2;Mo_AP
+19;25;2;Mo_AP
+20;18,125;2;Mo_AP
+25;25;2;Mo_AP
+27;20,416667;2;Mo_AP
+29;15,833333;2;Mo_AP
+30;25;2;Mo_AP
+31;18,958333;2;Mo_AP
+33;25;2;Mo_AP
+34;25;2;Mo_AP
+36;17,083333;2;Mo_AP
+37;25;2;Mo_AP
+38;20,833333;2;Mo_AP
+39;22,5;2;Mo_AP
+40;13,125;2;Mo_AP
+1;17,083333;3;Mo_LM
+2;21,25;3;Mo_LM
+4;15,833333;3;Mo_LM
+5;19,791667;3;Mo_LM
+6;15,416667;3;Mo_LM
+7;17,708333;3;Mo_LM
+8;13,333333;3;Mo_LM
+9;19,583333;3;Mo_LM
+11;22,083333;3;Mo_LM
+13;22,5;3;Mo_LM
+14;8,75;3;Mo_LM
+15;18,75;3;Mo_LM
+16;17,708333;3;Mo_LM
+18;15,833333;3;Mo_LM
+19;16,25;3;Mo_LM
+20;7,9166667;3;Mo_LM
+25;16,041667;3;Mo_LM
+27;14,166667;3;Mo_LM
+29;14,583333;3;Mo_LM
+30;19,166667;3;Mo_LM
+31;19,791667;3;Mo_LM
+33;11,666667;3;Mo_LM
+34;9,5833333;3;Mo_LM
+36;17,5;3;Mo_LM
+37;25;3;Mo_LM
+38;10,833333;3;Mo_LM
+39;25;3;Mo_LM
+40;14,166667;3;Mo_LM

Dataset and analysis/Robust rmANOVA_rMT_Biphasic_explorative.R

@@ -0,0 +1,10 @@
+setwd("/Users/giacomoguidali/Library/CloudStorage/GoogleDrive-g.guidali@campus.unimib.it/Il mio Drive/Post-Doc BS/MoBi P15/4 - Analisi/MEP") #set directory
+
+rm(list = ls()) # pulisco il workspace, male non fa
+library(WRS2)
+
+MEPamplitude_raw <- read.csv("Database rMT_robustANOVABiphasic.csv",header=T,sep=";", dec=",") #importo database
+
+#rmANOVA + post-hoc
+rmanova(MEPamplitude_raw$rMT, MEPamplitude_raw$Condition, MEPamplitude_raw$Subject , tr = 0.2)
+rmmcp(MEPamplitude_raw$rMT, MEPamplitude_raw$Condition, MEPamplitude_raw$Subject, tr = 0.2, alpha = 0.05)