data("ce.miRNA.map")
data("example.data")
data("ce.interactionmap")
data("ce.IDsMap")
sifNetwork<-buildNetwork(example.data$ce.bind, ce.interactionmap, level=2)
cifNetwork<-filterNetwork(rootgene=ce.IDsMap["DAF-16"], sifNetwork=sifNetwork,
exprsData=uniqueExprsData(example.data$ce.exprData, "Max", condenseName='logFC'),
mergeBy="symbols",
miRNAlist=as.character(ce.miRNA.map[ , 1]), tolerance=1)
gR<-polishNetwork(cifNetwork)
## g1<-Rgraphviz::layoutGraph(gR)
## renderGraph(g1)
## cat(saveXML(toGXL(g1)),sep="\n")
Run the code above in your browser using DataLab