if (require(topologyGSA)) {
data(examples)
k <- pathways("hsapiens", "kegg")
p <- convertIdentifiers(k[["Fc epsilon RI signaling pathway"]], "symbol")
runTopologyGSA(p, "var", y1, y2, 0.05)
}
Run the code above in your browser using DataCamp Workspace