load(file='/Users/meganwilliams/Desktop/HANDLS/Joggle/Joggle PCA/JoggleDem.rdata')
load(file='/Users/meganwilliams/Desktop/HANDLS/Joggle/Joggle PCA/Neuro1Dem.rdata')
load(file='/Users/meganwilliams/Desktop/HANDLS/Joggle/Joggle PCA/Neuro3Dem.rdata')
library(zStat)
Correlation Analyses: Joggle Test Scores and Demographic Variables
DemogVARS=c("Race","Sex","Age0","PovStat","Educnum","WRATtotal")
JoggleDataVARS = c("BARTaccuracy","DSSTefficiency","LOTefficiency","PVTefficiency","AMefficiency","NBACKaccuracy","VOLTefficiency","MPTspeed")
zCor(JoggleDem[, DemogVARS], JoggleDem[, JoggleDataVARS])
## BARTaccuracy DSSTefficiency LOTefficiency PVTefficiency
## Race 0.16 -0.04 0.10*** 0.23***
## Sex 0.07** 0.11 0.24*** -0.15***
## Age0 -0.08** -0.52*** -0.49 0.06*
## PovStat 0.05* 0.37*** 0.51*** -0.11
## Educnum 0.08*** 0.28*** 0.38*** 0.18***
## WRATtotal 0.12*** 0.21*** 0.31*** 0.35***
## AMefficiency NBACKaccuracy VOLTefficiency MPTspeed
## Race 0.01 0.04 0.06* 0.20***
## Sex 0.29*** 0.23*** -0.09*** 0.07**
## Age0 -0.31*** -0.26*** -0.24*** -0.26***
## PovStat 0.24*** 0.21*** 0.21*** 0.05*
## Educnum 0.05 0.19*** 0.27*** 0.18***
## WRATtotal 0.00 0.15 0.22*** 0.31***
##
## n = 1708
Correlation Analyses: Wave 1 Neuropsych Test Scores and Demographic Variables
DemogVARS=c("Race","Sex","Age0","PovStat","Educnum","WRATtotal")
Neuro1vars=c("BVRtot","CrdRot","IdentPicScore","CVLtca","DigitSpanFwd","DigitSpanBck","FluencyWord","TrailsAtestSec","TrailsBtestSec","Attention","ClockTotal","TrailsBminusA")
zCor(Neuro1Dem[, DemogVARS], Neuro1Dem[, Neuro1vars])
## BVRtot CrdRot IdentPicScore CVLtca DigitSpanFwd
## Race -0.04 0.27*** 0.19*** 0.18*** 0.12***
## Sex -0.11*** 0.18 -0.07** -0.17*** 0.06*
## Age0 0.23*** -0.21*** -0.46 -0.18*** -0.07**
## PovStat -0.07** 0.12*** 0.12*** 0.12 0.10***
## Educnum -0.20*** 0.12*** 0.22*** 0.26*** 0.18
## WRATtotal -0.26*** 0.32*** 0.29*** 0.36*** 0.41***
## DigitSpanBck FluencyWord TrailsAtestSec TrailsBtestSec Attention
## Race 0.23*** 0.12*** -0.13*** -0.18*** 0.18***
## Sex 0.03 0.12*** 0.05 0.03 -0.06*
## Age0 -0.07** -0.13*** 0.16*** 0.16*** -0.07**
## PovStat 0.13*** 0.11*** -0.07** -0.13*** 0.12***
## Educnum 0.19*** 0.23*** -0.06* -0.21*** 0.14***
## WRATtotal 0.48 0.29*** -0.14*** -0.34*** 0.31***
## ClockTotal TrailsBminusA
## Race 0.13*** -0.16***
## Sex 0.06* 0.02
## Age0 -0.01 0.13***
## PovStat 0.07** -0.12***
## Educnum 0.11*** -0.20***
## WRATtotal 0.23*** -0.33***
##
## n = 1641
Correlation Analyses: Wave 3 Neuropsych Test Scores and Demographic Variables
DemogVARS=c("Race","Sex","Age0","PovStat","Educnum","WRATtotal")
Neuro3vars=c("BVRtot","StroopInterference","StroopWords","CVLtca","DigitSpanFwd","DigitSpanBck","FluencyWord","TrailsAtestSec","TrailsBtestSec","Attention","ClockTotal","TrailsBminusA")
zCor(Neuro3Dem[, DemogVARS], Neuro3Dem[, Neuro3vars])
## BVRtot StroopInterference StroopWords CVLtca DigitSpanFwd
## Race -0.10 0.02 0.08** 0.12*** 0.11***
## Sex -0.08** 0.15 -0.16*** -0.20*** -0.01
## Age0 0.26*** 0.02 -0.14 -0.18*** -0.09**
## PovStat -0.11*** 0.00 0.16*** 0.09 0.12***
## Educnum -0.23*** -0.03 0.21*** 0.19*** 0.15
## WRATtotal -0.31*** -0.09** 0.48*** 0.29*** 0.39***
## DigitSpanBck FluencyWord TrailsAtestSec TrailsBtestSec Attention
## Race 0.19*** 0.07* -0.09** -0.15*** 0.11***
## Sex -0.00 0.12*** 0.08** 0.01 -0.04
## Age0 -0.06* -0.09** 0.10*** 0.17*** -0.12***
## PovStat 0.12*** 0.10*** -0.00 -0.12*** 0.12***
## Educnum 0.20*** 0.20*** -0.03 -0.19*** 0.13***
## WRATtotal 0.47 0.26*** -0.04 -0.33*** 0.29***
## ClockTotal TrailsBminusA
## Race 0.09** -0.13***
## Sex 0.01 -0.01
## Age0 -0.07* 0.15***
## PovStat 0.06* -0.12***
## Educnum 0.11*** -0.19***
## WRATtotal 0.18*** -0.33***
##
## n = 1169