R/nParam.R

In miscTools: Miscellaneous Tools and Utilities

Defines functions nParam nParam.default nParam.lm

Documented in nParam nParam.default nParam.lm

## Return the #of parameters of model
nParam <- function(x, free=FALSE, ...)
    UseMethod("nParam")

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

nParam.lm <- function(x, ...)
    length(coefficients(x))

Try the miscTools package in your browser