R/print.CRABSsets.R

In CRABS: Congruent Rate Analyses in Birth-Death Scenarios

#' print.CRABSsets
#'
#' @param x a list of (congruent) CRABS sets
#' @param ... additional parameters
#'
#' @return nothing
#' @export
#'
#' @examples
#' data(primates_ebd_log)
#' 
#' posterior <- read.RevBayes(primates_ebd_log, max_t = 65, n_samples = 10)
#' 
#' samples <- sample.congruence.class.posterior(posterior, 
#'                                              num.samples = 5,
#'                                              rate.type = "extinction",
#'                                              rate0.median = 0.1,
#'                                              model = "MRF",
#'                                              max.rate = 1.0)
#'                                              
#' print(samples)
print.CRABSsets <- function(x, ...){
  cat("A group of ", length(x), "CRABS sets.\n")
  cat("Knots:", length(x[[1]][[1]]$times), "\n")
  cat("Delta-tau:", x[[1]][[1]]$delta_t, "\n")
  invisible()
}