R/print_qbin.R

In qbinplots: Quantile Binned Plots

#' @export
print.qbin <- function(x, ...){
  cat("Quantile binned object\n")
  cat("Number of bins: ", max(x$bin), "\n")
  cat("Binned on variable: '", x$x, "'\n", sep="")
  cat("Variables: ", paste0("'",names(x$data),"'", collapse = ", "), "\n", sep="")
  cat("Nrows: ", length(x$bin))
  invisible(x)
}