# NOT RUN {
kNumSubjs <- summary(covars$Group)
corr.diffs <- cor.diff.test(corrs[[1]][[1]]$R, corrs[[2]][[1]]$R,
kNumSubjs[1], kNumSubjs[2], alternative='two.sided')
edge.diffs <- t(sapply(which(corr.diffs$p < .05), function(x)
mapply('[[',
dimnames(corr.diffs$p),
arrayInd(x, dim(corr.diffs$p)))
))
# }
Run the code above in your browser using DataLab