R/nobs.R

In gplots: Various R Programming Tools for Plotting Data

# $Id: nobs.R 1799 2014-04-05 18:38:23Z warnes $

## Redefine here, so that the locally defined methods (particularly
## nobs.default) take precidence over the ones now defined in the
## stats package
nobs <- function(object, ...)
  UseMethod("nobs")

nobs.default <- function(object, ...)
  {
    if(is.numeric(object) || is.logical(object))
      sum( !is.na(object) )
    else
      stats::nobs(object, ...)
  }


nobs.data.frame <- function(object, ...)
  sapply(object, nobs.default)

## Now provided by 'stats' package, so provide alias to satisfy
## dependencies
nobs.lm <- stats:::nobs.lm