[BioC] problem with getGOOntology

[Francois Pepin]

> I didn't find a function getGOontology.  Can you post a little 
> self-contained piece of code that mimics the problem?

It's in GOstats.

> getGOOntology
function (x)
{
    if (!is.character(x))
        stop("need a character argument")
    if (length(x) == 0)
        return(character(0))
    wh <- mget(x, env = GOTERM, ifnotfound = NA)
    return(sapply(wh, Ontology))
}