R/f_convenience_fit.R

In psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

# psychonetrics parameter extraction:
fit <- function(x){
  if (!x@computed){
    stop("Model has not yet been computed. Use 'runmodel'.")
  }
  if (is.null(x@fitmeasures)){
    stop("No fit measures computed yet. Use 'addfit'.")
  }
  
  # AWESOME HEADER!!!
  # cat(
  #   paste0("\t################################\n",
  #          "\t## psychonetrics fit measures ##\n",
  #          "\t################################\n\n"))
  # psychonetrics_print_logo() 
  # No awesome header :(
  
  df <- data.frame(
    Measure = names(x@fitmeasures),
    Value = goodNum2(unlist(x@fitmeasures))
  )
  print.data.frame(df,row.names=FALSE)
 
  # Numeric DF to return:
  
  dfnum <- data.frame(
    Measure = names(x@fitmeasures),
    Value = unlist(x@fitmeasures)
  )
  invisible(dfnum)
}