setwd("Downloads/transcriptom/new/co-expression network")
darkred <- read.table("CytoscapeInput-edges-darkred.txt",header = TRUE )
head(darkred)
subdata <- subset(darkred, toNode == "evm.TU.Contig10143.353"
|toNode == "evm.TU.Contig5252.988"
|toNode == "evm.TU.Contig5252.495"
|toNode == "evm.TU.Contig5386.748"
|toNode == "evm.TU.Contig8624.763"
|toNode == "evm.TU.Contig10143.770"
)
write.csv(subdata, file = "Prx-coexpression net work.csv")
网友评论