# prepare data
library(golubEsets)
data(Golub_Merge)
# generate annotation-driven splits for apoptosis and signal transduction
x <- adSplit(Golub_Merge, "GO:0006915", "hu6800")
x <- adSplit(Golub_Merge, c("GO:0007165","GO:0006915"), "hu6800", max.probes=7000)
# generate a split for glutamate metabolism including
# an empirical p-value
x <- adSplit(Golub_Merge, "KEGG:00251", "hu6800", B=100)
## Not run:
# # generate splits for all KEGG pathways.
# x <- adSplit(Golub_Merge, "KEGG", "hu6800")
# image(x)
# ## End(Not run)
Run the code above in your browser using DataLab