R/deviance.dierckx.R

deviance.dierckx <- function(object, scale = FALSE, ...) {
  df <- if(scale) with(object, length(x) - g - k - 1) else 1
  object$fp/df
}

Try the DierckxSpline package in your browser

Any scripts or data that you put into this service are public.

DierckxSpline documentation built on May 2, 2019, 6:30 p.m.