R/LPshow.R

In mroughan/LinePicking: Probability density function for distance between points

#' Print the linepicking class to standard output.
#'
#' @param object A \code{linepicking} object.
#'
#' @return NULL. Prints to standard out.
#'
#' @name print
#' @aliases print print,linepicking-method
#' @aliases show,linepicking-method
#' @docType methods
#' @rdname print-methods
#' @export
#' @author Eric Parsonage, Matt Roughan, Jono Tuke
#' @examples
#' tmp <- CreateLinePicking(problem=0,para=10)
#' tmp
setMethod("show", "linepicking", function(object){
  cat("A LinePicking object with\n")
  cat("Problems:",problem(object),"\n")
#   LinePickingAllProblems() TODO add better table
  cat("Parameters:", para(object),"\n")
  cat("Support: ", support(object)[1],"-",
      support(object)[2],"\n",sep='')
  cat("Statistics:\n")
  print(stats(object))
})