R/cov_clm__summary.clm.theta__catOptimDetails.R

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

catOptimDetails <- function(fitTheta, optimTable) {
  cat("---\n\nOptimization Details:")
  cat("\n\nConverged: ")
  if (fitTheta$optim$convergence == 0) cat("TRUE") else cat("FALSE")
  cat(paste0("\nOptim Method: ", fitTheta$optimParams$method))
  cat(paste0("\nIteractions Number - Function: ", fitTheta$optim$counts[1]))
  cat(paste0("\nIteractions Number - Gradient: ", fitTheta$optim$counts[2]))
  cat(paste0("\nOptim Function Value: ", round(fitTheta$optim$value, 4)))
  print(knitr::kable(optimTable, format = "simple", digits = 4))

  return(NULL)
}