R/ngenes.matrix.R

In alexsanchezpla/goProfiles: goProfiles: an R package for the statistical analysis of functional profiles

`ngenes.matrix` <-
 function(pn, i=NULL) {
  if (is.null(i)) {
    if (has.ngenes.attr(pn))
      return(attr(pn,"ngenes"))
    else if (has.numGenes.attr(pn))
      return(attr(pn,"numGenes"))
    else
      return(NULL)
  }
  else
    return(ngenes(pn)[i])
}