if (require(topologyGSA)) {
data(examples)
k <- pathways("hsapiens", "kegg")
ps <- convertIdentifiers(
k[c("Acute myeloid leukemia", "Fc epsilon RI signaling pathway")],
"symbol")
runTopologyGSAMulti(ps, "var", y1, y2, 0.05)
}
Run the code above in your browser using DataLab