R/2.11.catFitResults.R

In Mmcsd: Modeling Complex Longitudinal Data in a Quick and Easy Way

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)
}