Joggle on Joggle Correlations

load(file='/Users/meganwilliams/Desktop/HANDLS/Joggle/Joggle PCA/JoggleData.rdata')
library(zStat)

JoggleDataVARS = c("BARTaccuracy","DSSTefficiency","LOTefficiency","PVTefficiency","AMefficiency","NBACKaccuracy","VOLTefficiency","MPTspeed")
zCor(JoggleData[, JoggleDataVARS], JoggleData[, JoggleDataVARS])

##                BARTaccuracy DSSTefficiency LOTefficiency PVTefficiency
## BARTaccuracy    1.00         0.13***        0.17***       0.10***     
## DSSTefficiency  0.13***      1.00           0.61***       0.10***     
## LOTefficiency   0.17***      0.61***        1.00          0.09***     
## PVTefficiency   0.10***      0.10***        0.09***       1.00        
## AMefficiency    0.11***      0.42***        0.38***      -0.20***     
## NBACKaccuracy   0.10***      0.32***        0.29***      -0.00        
## VOLTefficiency  0.11***      0.38***        0.38***       0.17***     
## MPTspeed        0.14***      0.40***        0.37***       0.24***     
##                AMefficiency NBACKaccuracy VOLTefficiency MPTspeed
## BARTaccuracy    0.11***      0.10***       0.11***        0.14***
## DSSTefficiency  0.42***      0.32***       0.38***        0.40***
## LOTefficiency   0.38***      0.29***       0.38***        0.37***
## PVTefficiency  -0.20***     -0.00          0.17***        0.24***
## AMefficiency    1.00         0.20***       0.21***        0.20***
## NBACKaccuracy   0.20***      1.00          0.16***        0.15***
## VOLTefficiency  0.21***      0.16***       1.00           0.27***
## MPTspeed        0.20***      0.15***       0.27***        1.00   
## 
## n =  1793