# NOT RUN {
##query list
ils<-grep("^IL",idmap[["Symbol"]],value=TRUE)
## using precompiled GPS repositories:
sigRes.ilreact<-sigora(queryList=ils,GPSrepo=reaH,level=4)
sigRes.ilkeg<-sigora(queryList=ils,GPSrepo=kegH,level=2)
## user created GPS repository:
nciH<-makeGPS(pathwayTable=nciTable)
sigRes.ilnci<-sigora(queryList=ils,GPSrepo=nciH,level=2)
## user defined weighting schemes :
myfunc<-function(a,b){1/log(a+b)}
sigora(queryList=ils,GPSrepo=nciH,level=2, weighting.method ="myfunc")
# }
Run the code above in your browser using DataLab