data(pandaToyData)
pandaRes <- panda(pandaToyData$motif,
pandaToyData$expression,pandaToyData$ppi,hamming=.001,progress=TRUE)
topPandaRes <- topedges(pandaRes,1000)
data(pandaResult)
topPandaRes <- topedges(pandaResult,1000)
Run the code above in your browser using DataLab