R code for micro array vs rnaSeq coexpression network research