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