R/Children.R

In PloGO2: Plot Gene Ontology and KEGG pathway Annotation and Abundance

Children <- function (node) 
{

Child <- NULL

if (!is.null(GOTERM[[node]])) {
	Child <- get(paste("GO", "CHILDREN", sep = Ontology(GOTERM[[node]])))[[node]]
}

names(Child) <- NULL

Child
}