R/print.befa.R

Defines functions print.befa

#' @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')
}

Try the BayesFM package in your browser

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

BayesFM documentation built on June 22, 2024, 10:24 a.m.