## 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