Description Usage Arguments Author(s) See Also Examples
Display graphical representation of pathway level statistic like:
i) two way comparison between the measured expression change and one of the
factors computed by Pathway-Express (pe
) or ii) the boostrap
statistics of the same factors.
1 2 3 4 5 6 |
x |
an object of type |
y |
if provided, the factor to be ploted (either |
... |
Arguments to be passed to methods, such as |
type |
type of plot (either |
eps |
any value smaller than this will be ploted as 0 |
main |
title |
Calin Voichita and Sorin Draghici
pe
, plot,peRes,missing-method
, peNodeRenderInfo
, peEdgeRenderInfo
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # load experiment
load(system.file("extdata/E-GEOD-21942.topTable.RData", package = "ROntoTools"))
fc <- top$logFC[top$adj.P.Val <= .01]
names(fc) <- top$entrez[top$adj.P.Val <= .01]
ref <- top$entrez
# load the set of pathways
kpg <- keggPathwayGraphs("hsa")
kpg <- setEdgeWeights(kpg)
kpg <- setNodeWeights(kpg, defaultWeight = 1)
# perform the pathway analysis (for more accurate results use nboot = 2000)
peRes <- pe(fc, graphs = kpg, ref = ref, nboot = 100, verbose = TRUE)
plot(peRes@pathways[[50]])
plot(peRes@pathways[[50]], "Pert", main = "Perturbation factor")
plot(peRes@pathways[[50]], type = "boot")
plot(peRes@pathways[[50]], "Pert", type = "boot", main = "Perturbation factor")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.