R/nObs.R

In miscTools: Miscellaneous Tools and Utilities

Defines functions nObs nObs.lm nObs.default

Documented in nObs nObs.default nObs.lm

## Return #of observations for models
nObs <- function(x, ...)
    ## Number of observations for statistical models
    UseMethod("nObs")

nObs.lm <- function(x, ...)
    nrow(x$qr$qr)

nObs.default <- function(x, ...)
    x$param$nObs

Try the miscTools package in your browser