R/print.threshold.R

In benmack/threshold: Histogram/density based threshold selection

#' @name print.threshold 
#' @title ...
#' @description ...
#' @param x ...
#' @param ... ...
#' @method print threshold
#' @export
print.threshold <- function(x, ...) {
  method <- attr(x, 'method')
  attributes(x) <- NULL
  print(paste0("Threshold(s): ", signif(x)))
  print(paste0("Method: ", method))
}