R/show.R

In ArchaeoPhases: Post-Processing of Markov Chain Monte Carlo Simulations for Chronological Modelling

# SHOW METHODS
#' @include AllClasses.R
NULL

# MCMC =========================================================================
setMethod(
  f = "show",
  signature = "MCMC",
  definition = function(object) {
    cat(
      sprintf("<%s>", class(object)),
      sprintf("- Number of events: %d", ncol(object)),
      sprintf("- Number of MCMC samples: %s", nrow(object)),
      sep = "\n"
    )
  }
)

# PhasesMCMC ===================================================================
setMethod(
  f = "show",
  signature = "PhasesMCMC",
  definition = function(object) {
    cat(
      sprintf("<%s>", class(object)),
      sprintf("- Number of phases: %d", ncol(object)),
      sprintf("- Number of MCMC samples: %s", nrow(object)),
      sep = "\n"
    )
  }
)