R/residuals.loop2rsummary.R

Defines functions residuals.loop2rsummary

Documented in residuals.loop2rsummary

residuals.loop2rsummary <- 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)
  return(data.frame("input"=resid.x,"output"=resid.y,"geometric"=resid.geometric))
}

Try the hysteresis package in your browser

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

hysteresis documentation built on May 15, 2021, 1:09 a.m.