R/fitted.loopsummary.R

In spencerm89/hysteresis4: Tools for Modeling Rate-Dependent Hysteretic Processes and Ellipses

Defines functions fitted.loopsummary

Documented in fitted.loopsummary

fitted.loopsummary <- function(object,...){
  g <- object
  return(data.frame("input"=g$pred.x,"output"=g$pred.y))
}