## -----------------------------------------------------------------------------
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()