# NOT RUN {
neuralarray <- convertConnBrainMat()
filteredneuralarray <- neuralnetfilter(neuralarray, method = "threshold", thres = .50)
AverageShortestPathLength <- neuralstat(filteredneuralarray, statistic = "ASPL")
Degree <- neuralstat(filteredneuralarray, statistic = "deg")
groups <- c(rep(1,30),rep(2,30))
WholeNetwork_t-test <- neuralstattest(groups, AverageShortestPathLength)
ROI_t-test <- neuralstattest(groups, Degree)
# }
Run the code above in your browser using DataLab