Nothing
## -----------------------------------------------------------------------------
library(pandaR)
data(pandaToyData)
## -----------------------------------------------------------------------------
pandaResult <- panda(pandaToyData$motif, pandaToyData$expression, pandaToyData$ppi)
pandaResult
## -----------------------------------------------------------------------------
topNet <- topedges(pandaResult, 1000)
## -----------------------------------------------------------------------------
targetedGenes(topNet, c("AR"))
## -----------------------------------------------------------------------------
topSubnet <- subnetwork(topNet, c("AR","ARID3A","ELK1"))
## -----------------------------------------------------------------------------
plotGraph(topSubnet)
## ----plotZ--------------------------------------------------------------------
panda.res1 <- with(pandaToyData, panda(motif, expression, ppi, hamming=1))
panda.res2 <- with(pandaToyData, panda(motif, expression +
rnorm(prod(dim(expression)),sd=5), ppi, hamming=1))
plotZ(panda.res1, panda.res2,addLine=FALSE)
## -----------------------------------------------------------------------------
sessionInfo()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.