Update s6.moduleConsensusAnalysis.R

fix the error with consensus dendrogram figure