# NOT RUN {
neuralarray <- convertConnBrainMat()
filteredneuralarray <- neuralnetfilter(neuralarray, method = "threshold", thres = .50)
ClusteringCoefficient <- neuralstat(filteredneuralarray, statistic = "CC")
AverageShortestPathLength <- neuralstat(filteredneuralarray, statistic = "ASPL")
Modularity <- neuralstat(filteredneuralarray, statistic = "Q")
Smallworldness <- neuralstat(filteredneuralarray, statistic = "S")
Trasitivity <- neuralstat(filteredneuralarray, statistic = "transitivity")
Connectivity <- neuralstat(filteredneuralarray, statistic = "conn")
BetweennessCentrality <- neuralstat(filteredneuralarray, statistic = "BC")
ClosenessCentrality <- neuralstat(filteredneuralarray, statistic = "LC")
Degree <- neuralstat(filteredneuralarray, statistic = "deg")
NodeStrength <- neuralstat(filteredneuralarray, statistic = "str")
Communities <- neuralstat(filteredneuralarray, statistic = "comm")
EigenvectorCentrality <- neuralstat(filteredneuralarray, statistic = "EC")
LeverageCentrality <- neuralstat(filteredneuralarray, statistic = "lev")
RandomShortestPathBC <- neuralstat(filteredneuralarray, statistic = "rspbc")
HybridCentrality <- neuralstat(filteredneuralarray, statistic = "hybrid")
NodeImpact <- neuralstat(filteredneuralarray, statistic = "impact")
# }
Run the code above in your browser using DataLab