R/print.bayesQR.R

Defines functions print.bayesQR

print.bayesQR <- function (x, digits = max(3, getOption("digits") - 3), ...)
  {
    cat("\nCall:\n", deparse(x$call), "\n\n", sep = "")
    param <- apply(x$param, 2, mean)
    if (length(param)) {
      cat("Parameter estimates (posterior means):\n")
      print.default(format(param, digits = digits), print.gap = 2,
                    quote = FALSE)
    }
    else cat("No parameter estimates\n")
    cat("\n")
    invisible(x)
  }

Try the factorQR package in your browser

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

factorQR documentation built on May 30, 2017, 7:20 a.m.