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