R/print.befa.R

In BayesFM: Bayesian Inference for Factor Modeling

#' @export

print.befa <- function(x, ...)
{
  if (!inherits(x, 'befa'))
    stop('object passed to print.befa should be of class befa')

  cat('BEFA output - Bayesian Exploratory Factor Analysis\n\n')
  cat('call:\n  ')
  print(attr(x, 'call'))
  cat('\n')
  cat('posterior column switch:', attr(x, "post.column.switch"), '\n')
  cat('posterior sign switch:  ', attr(x, "post.sign.switch"), '\n\n')
}