If you want to run csuWGCNA, run following R code:
library(WGCNA); library(doParallel); source('hpickSoftThreshold.r'); source('Hadjacency.r'); options(stringsAsFactors = F)
sft<-hpickSoftThreshold(expr,powerVector = powers, corFnc = bicor, networkType = "hybrid2", verbose = 5)
adj<-Hadjacency(datExpr=expr,type='hybrid2',power=power, corFnc='bicor')