if (require(DEGraph)) {
data("Loi2008_DEGraphVignette")
b <- pathways("hsapiens", "biocarta")
p <- convertIdentifiers(b[["actions of nitric oxide in the heart"]], "entrez")
runDEGraph(p, exprLoi2008, classLoi2008)
}
Run the code above in your browser using DataCamp Workspace