R/print.loopsummary.R

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

print.loopsummary <- function (x,...) {
  cat("Summary Call:\n")
  print(x$summarycall)
  cat("Call for Original Fit:\n")
  print(x$call)
    cat("\nBootstrapped Estimates:\n")
    print(x$values[,c("Boot.Estimate","Bias","Std.Error","B.q0.025","B.q0.975")],digits=4)
 
}