data(dat_chip)
data(MsigDB_C5,package="seq2pathway.data")
#generate a demo GSA.genesets object
demoDB <- MsigDB_C5
x=100
for(i in 1:3) demoDB[[i]]<-MsigDB_C5[[i]][1:x]
FS_test<-FisherTest_MsigDB(gsmap=demoDB,
sample(unlist(demoDB$genesets),10), genome="hg19",
min_Intersect_Count=1)
FS_test[1:3,]
## Not run:
# FS_test<-FisherTest_MsigDB(gsmap=MsigDB_C5,
# gs=rownames(dat_chip), genome="hg19",
# min_Intersect_Count=1)
# ## End(Not run)
Run the code above in your browser using DataLab