R/residuals.ellipsefit.R

Defines functions residuals.ellipsefit

Documented in residuals.ellipsefit

residuals.ellipsefit <- function(object,...){
  g <- object
  resid.x <-g$pred.x-g$x
  resid.y <-g$pred.y-g$y
  resid.geometric <- sqrt(resid.x^2+resid.y^2)
  resid.algebraic <- g$residuals
  return(data.frame("input"=resid.x,"output"=resid.y,"geometric"=resid.geometric,"algebraic"=resid.algebraic))
}

Try the hysteresis package in your browser

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

hysteresis documentation built on May 29, 2024, 5:27 a.m.