csuWGCNA is a modified WGCNA procedure which is intended to capture negative correlations in the expression data.
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')