if (FALSE) {
kNumSubjs <- summary(covars$Group)
corr.diffs <- cor.diff.test(corrs$R[, , 1], corrs$R[, , 2], kNumSubjs)
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