R/print.R

Defines functions print.summary.mcmcr print.summary.mcmcarray print.mcmcr print.mcmcarray

#' @export
print.mcmcarray <- function(x, ...) {
  print(summary(x))
  invisible(x)
}

#' @export
print.mcmcr <- function(x, ...) {
  print(summary(x))
  invisible(x)
}

#' @export
print.summary.mcmcarray <- function(x, ...) {
  print(x$estimates)
  cat("\nnchains: ", x$nchains, "\n")
  cat("niters: ", x$niters, "\n")
  invisible(x)
}

#' @export
print.summary.mcmcr <- function(x, ...) {
  lapply(x$arrays, print)
  invisible(x)
}

Try the mcmcr package in your browser

Any scripts or data that you put into this service are public.

mcmcr documentation built on Sept. 7, 2021, 1:07 a.m.