Nothing
# $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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.