Correlation Analyses for Joggle Residual Scores and Wave 1 Neuropsych Scores
Neuro1vars=c("BVRtot","CrdRot","IdentPicScore","CVLtca","DigitSpanFwd","DigitSpanBck","FluencyWord","TrailsAtestSec","TrailsBtestSec","Attention","ClockTotal","TrailsBminusA","WRATtotal")
JoggleFactors = c("PC1","PC2","PC3")
Cor1 = zCor(oJogglew01Neupsy[, Neuro1vars], oJogglew01Neupsy[, JoggleFactors])
print(Cor1)
## PC1 PC2 PC3
## BVRtot -0.16 -0.03 -0.37***
## CrdRot 0.29*** -0.04 0.38***
## IdentPicScore 0.37*** 0.00 0.43
## CVLtca 0.19*** -0.01 0.31***
## DigitSpanFwd 0.10** -0.07 0.24***
## DigitSpanBck 0.06 -0.08* 0.28***
## FluencyWord 0.18*** 0.02 0.28***
## TrailsAtestSec -0.18*** 0.01 -0.19***
## TrailsBtestSec -0.13*** -0.02 -0.33***
## Attention 0.13*** -0.06 0.24***
## ClockTotal 0.03 -0.04 0.18***
## TrailsBminusA -0.10** -0.02 -0.30***
## WRATtotal 0.16*** -0.09* 0.32***
##
## n = 781
Correlation Analyses for Joggle Residual Scores and Wave 3 Neuropsych Scores
Neuro3vars=c("HNDid","BVRtot","StroopInterference","StroopWords","CVLtca","DigitSpanFwd","DigitSpanBck","FluencyWord","TrailsAtestSec","TrailsBtestSec","Attention","ClockTotal","TrailsBminusA")
JoggleFactors = c("PC1","PC2","PC3")
Cor3 = zCor(oJogglew03Neupsy[, Neuro3vars], oJogglew03Neupsy[, JoggleFactors])
print(Cor3)
## PC1 PC2 PC3
## HNDid 0.01 0.19*** 0.03
## BVRtot -0.17*** 0.05 -0.41***
## StroopInterference -0.07 0.04 -0.11
## StroopWords 0.22*** -0.06 0.25***
## CVLtca 0.17*** -0.06 0.25***
## DigitSpanFwd 0.11** 0.00 0.17***
## DigitSpanBck 0.01 0.02 0.22***
## FluencyWord 0.19*** 0.02 0.23***
## TrailsAtestSec -0.07 0.04 -0.09*
## TrailsBtestSec -0.21*** 0.09* -0.38***
## Attention 0.09* -0.10* 0.34***
## ClockTotal 0.00 -0.04 0.18***
## TrailsBminusA -0.18*** 0.07 -0.34***
##
## n = 582