R/summary.CFA.R

Defines functions summary.CFA

Documented in summary.CFA

#' Summary for CFA objects of \code{\link[EGAnet]{EGA}} results
#'
#' Returns a summary of the CFA results of \code{\link[EGAnet]{EGA}} results
#'
#' @param object An \code{\link[EGAnet]{CFA}} object
#'
#' @param ... potentially further arguments (\strong{unused currently})
#'
#' @author Hudson F. Golino <hfg9s at virginia.edu>
#'
#' @examples
#' \dontrun{
#' # Estimate EGA
#' ega.wmt <- EGA(data = wmt2[,7:24], plot.EGA = TRUE)
#' 
#' }
#'
#' # Esimtate CFA
#' cfa.wmt <- CFA(ega.obj = ega.wmt, estimator = 'WLSMV', plot.CFA = TRUE, data = wmt2)
#'
#' # Summary of CFA results
#' summary(cfa.wmt)
#' 
#' @seealso \code{\link[EGAnet]{EGA}} to estimate the number of dimensions of an instrument using EGA
#' and \code{\link[EGAnet]{bootEGA}} to investigate the stability of EGA's estimation via bootstrap.
#' @export
#'
## S3 method for class 'CFA'
#'
#Summary function for CFA
summary.CFA <- function(object, ...) {
  cat("Summary: Confirmatory Factor Analysis:\n")
  print(object$summary)
  cat("\n FIt Measures:\n")
  print(object$fit.measures)
}
hfgolino/EGA documentation built on Aug. 16, 2019, 2:50 a.m.