R/print.summary.bayesx.R

Defines functions print.summary.bayesx

print.summary.bayesx <- function(x, digits = max(3, getOption("digits") - 3),
  signif.stars = getOption("show.signif.stars"), ...)
{
  n <- length(x)
  ncheck <- n > 1L
  digits <- attr(x, "digits")
  nx <- names(x)
  if(is.null(nx))
    nx <- 1L:n
  for(i in 1L:n) {
    if(ncheck)
      cat("###", nx[i], "\n")
    .print_summary_bayesx(x[[i]], digits = digits, signif.stars = signif.stars, ...)
  }
  if(ncheck) {
    cat("###\n")
    cat("Object consists of", n, "models\n")
  }

  return(invisible(NULL))
}

Try the R2BayesX package in your browser

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

R2BayesX documentation built on Oct. 20, 2023, 9:11 a.m.