R/print.fittedloop.R

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

print.fittedloop <- function (x,...) {
  cat("Call:\n")
  print(x$call)
  cat("Estimates and Delta Method Standard Errors:\n")
  print(cbind("Estimates"=x$values,"Std.Errors"=x$Std.Errors))
}