R/print.ellipsefitlist.R

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

print.ellipsefitlist <- function(x,...) {
  cat("Call:\n")
  print(attr(x,"call"))
  cat("\nParameter Estimates:\n")
print(x$Estimates,dixits=4)
  
cat("\nDelta Method Standard Errors:\n")
print(x$Std.Errors,digits=4)
invisible(x)}