data(dat_chip)
head(dat_chip)
data(GO_BP_list,package="seq2pathway.data")
data(Des_BP_list,package="seq2pathway.data")
newOntology <- list(GO_BP_list[1:200], Des_BP_list[1:200])
# A demo run of this funcion
FS_test<- FisherTest_GO_BP_MF_CC(gs=as.vector(rownames(dat_chip)),
Ontology="newOntology", newOntology=newOntology)
FS_test
## Not run:
# data(dat_chip)
# FS_test<-FisherTest_GO_BP_MF_CC(gs=rownames(dat_chip)[1:20], genome="hg19",
# min_Intersect_Count=1, Ontology="BP")
# FS_test$GO_BP[1:3,]## End(Not run)
Run the code above in your browser using DataLab