> with(subset(alldataq.gug,roi==5),tapply(accuracy,gram,mean))
       -1         1 
0.7005348 0.5493333 
> with(subset(alldataq.gug,roi==5),tapply(accuracy,int,mean))
       -1         1 
0.6122995 0.6373333 

Accuracy:
gram        -0.34578    0.07793  -4.437 9.12e-06 ***
int          0.04556    0.07788   0.585   0.5586    
gram:int     0.15236    0.07789   1.956   0.0505 .  


NP3:
g           0.006307   0.029412    0.21
i           0.094586   0.029363    3.22
g:i         0.031237   0.029405    1.06

V3:
g            0.162486   0.029946    5.43
i            0.080575   0.029729    2.71
g:i         -0.007776   0.029792   -0.26

V1:
g            0.245112   0.030002    8.17
i           -0.007771   0.029839   -0.26
g:i          0.041251   0.029947    1.38

Post-V1:
g            0.15581    0.03923    3.97
i            0.09776    0.03869    2.53
g:i         -0.02116    0.03994   -0.53


i           0.094586   0.029363    3.22   0.03624 0.15285 
i            0.080575   0.029729   2.71	  0.02107 0.14094
i           -0.007771   0.029839  -0.26	 -0.06670 0.05178
i            0.09776    0.03869    2.53	  0.02551 0.18363

g            0.245112   0.030002    8.17  0.18440 0.30305
g            0.15581    0.03923    3.97	  0.08051 0.23838