R/print.summary.results.R

Defines functions print.summary.results

print.summary.results <-
  function(x, ...)
  {
    cat(paste("Total Number of Dives: ", as.character(x$tot_dive)))
    cat("\n\n")
    cat("Summary Statistics: \n")
    print(x$md)
    cat("\n")
    invisible(x)
  }
iamurphy/bustR documentation built on Aug. 8, 2021, 2:14 p.m.