## Not run:
# if (require(DEGraph)) {
# data("Loi2008_DEGraphVignette")
# pathways<-pathways("hsapiens","biocarta")[1:10]
#
#
# TopologyGSA(exprLoi2008, classLoi2008, pathways, type="MA", method="mean", alpha=0.05, perms=200)
# TopologyGSA(exprLoi2008, classLoi2008, pathways, type="MA", method="mean", alpha=0.05, perms=200, testCliques=TRUE)
# }
#
# if (require(gageData)) {
#
# data(hnrnp.cnts)
# group<-c(rep("sample",4), rep("control",4))
# hnrnp.cnts<-hnrnp.cnts[rowSums(hnrnp.cnts)>0,]
# pathways<-pathways("hsapiens","biocarta")[1:10]
# TopologyGSA(hnrnp.cnts, group,pathways, type="RNASeq",method="mean", alpha=0.05,
# perms=200, norm.method="TMM")
# }
# ## End(Not run)
Run the code above in your browser using DataLab