R/deviance.R

In npreg: Nonparametric Regression via Smoothing Splines

Defines functions deviance.gsm deviance.sm

Documented in deviance.gsm deviance.sm

deviance.ss <- deviance.sm <-
  function(object, ...){
    sum(weighted.residuals(object)^2, na.rm = TRUE)
  }

deviance.gsm <-
  function(object, ...){
    object$deviance
  }

Try the npreg package in your browser