New method of coexpression analysis. finalChain.R is incomplete