R/leverage.q

In fit.models: fit.models

Defines functions leverage leverage.default leverage.lm

Documented in leverage leverage.default leverage.lm

leverage <- function(object, ...)
  UseMethod("leverage")


leverage.default <- function(object, ...)
{
  p <- length(coefficients(object))
  n <- length(fitted(object))
  rep(p/n, n)
}


leverage.lm <- function(object, ...)
  lm.influence(object, do.coef = FALSE)$hat

Try the fit.models package in your browser