R/cov_clm__summary.clm.theta__catFitResults.R

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

catFitResults <- function(fitTheta, thetaTable) {
  cat("\n\nCovariance Params: ")
  cat(fitTheta$sigmaThetaExpr$paramsNames)
  cat("\n\nCoefficients:")
  print(knitr::kable(thetaTable, format = "simple", digits = 4))

  return(NULL)
}