R/summary.distribution.r

In KapLDN/MangoTask: Generate random sample from a defined distribution

#' @title Summary of Distribution
#' @description Function to summarise class \code{distribution}
#' @param x distribution
#' @param ... additional arguements
#' @return invisible
#' @rdname summary.distribution
#' @export

summary.distribution <- function(x, ...){
  stopifnot(inherits(x, "distribution"))
  cat("\t\n",
      sprintf("Number of samples: %s\n", length(x$sample)),"\t\n",
      sprintf("Distribution: %s\n", x$distribution),"\t\n",
      sprintf("Sample mean: %s\n", mean(x$sample)),"\t\n",
      sprintf("Sample Variance: %s\n", var(x$sample)),"\t\n"
  )
  hist(x$sample,main = "", xlab = "Sample")
}