R/ngenes.numeric.R

Defines functions `ngenes.numeric`

`ngenes.numeric` <-
function(pn, i=NULL) {
  if (has.ngenes.attr(pn))
    return(attr(pn,"ngenes"))
  else if (has.numGenes.attr(pn))
    return(attr(pn,"numGenes"))
  else
    return(NULL)
}
alexsanchezpla/goProfiles documentation built on May 28, 2019, 4:54 p.m.