R/cov.ratio.R

In npreg: Nonparametric Regression via Smoothing Splines

Defines functions cov.ratio

Documented in cov.ratio

cov.ratio <-
  function(model, infl = smooth.influence(model, do.coef = FALSE),
           res = weighted.residuals(model)){
    clamod <- class(model)
    sigma <- ifelse(clamod == "gsm", sqrt(model$dispersion), model$sigma)
    (1 / (1 - infl$hat)) * (infl$sigma / sigma)^(2 * model$df)
  }

Try the npreg package in your browser