R/cov_clm__summary.clm.theta__catGoodnessOfFitMeasures.R

In phmpacheco-ufjf/clm: A package to deal with complex longitudinal survey data

catGoodnessOfFitMeasures <- function(fitTheta) {
  cat("\n\nGoodness of Fit Measures:")
  cat(paste0("\n\nRMR: ", round(fitTheta$gofMeasures$RMR, 4)))
  cat(paste0("\nAGFI: ", round(fitTheta$gofMeasures$AGFI, 4)))

  return(NULL)
}