# NOT RUN {
neuralarray <- convertConnBrainMat()
filteredneuralarray <- neuralnetfilter(neuralarray, method = "threshold", thres = .50)
AverageShortestPathLength <- neuralstat(filteredneuralarray, statistic = "ASPL")
Degree <- neuralstat(filteredneuralarray, statistic = "deg")
bstat <- iq
WholeNetwork_corr <- neuralcorrtest(bstat, AverageShortestPathLength)
ROI_corr <- neuralcorrtest(bstat, Degree)
# }
Run the code above in your browser using DataLab