Thanks for your quick response. Really appreciate it. For the network visualization, I exported my network output with the "lightblue1" module, which corresponded the 2h high correlation module. Based on you explanation, the network would be the consensus network across all timepoints. Do we have any way to see the difference network between baseline and 2h?
Select module
module = "lightblue1"
Select module probes
probes = colnames(datExpr) inModule = (moduleColors==module) modProbes = probes[inModule]
Select the corresponding Topological Overlap
modTOM = TOM[inModule, inModule] dimnames(modTOM) = list(modProbes, modProbes)
cyt = exportNetworkToCytoscape(modTOM, edgeFile = paste("CytoscapeInput-edges-", paste(module, collapse="-"), ".txt", sep=""), nodeFile = paste("CytoscapeInput-nodes-", paste(module, collapse="-"), ".txt", sep=""), weighted = TRUE, threshold = 0.02, nodeNames = modProbes, nodeAttr = moduleColors[inModule])
Thanks again!