###################################################
### chunk number 1: 
###################################################
library("goTools", verbose=FALSE)
data(probeID)  


###################################################
### chunk number 2: 
###################################################
class(affylist)
length(affylist)
affylist[[1]][1:5]


###################################################
### chunk number 3:  eval=FALSE
###################################################
## library(GO.db)
## subset=c(L1=list(affylist[[1]][1:5]),L2=list(affylist[[2]][1:5]))
## res <-ontoCompare(subset, probeType="hgu133a")


###################################################
### chunk number 4: ontoPlotEg1 eval=FALSE
###################################################
## library(GO.db)
## subset=c(L1=list(affylist[[1]][1:5]),L2=list(affylist[[2]][1:5]))
## res <- ontoCompare(subset, probeType="hgu133a", plot=TRUE)


###################################################
### chunk number 5: 
###################################################
EndNodeList()


###################################################
### chunk number 6:  eval=FALSE
###################################################
## MFendnode <- CustomEndNodeList("GO:0003674", rank=2)


###################################################
### chunk number 7:  eval=FALSE
###################################################
## res <- ontoCompare(subset, probeType="hgu133a", endnode=MFendnode, goType="MF")