R/clm__summary.clm__catCoefficientsTable.R

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

catCoefficientsTable <- function(coefficientsTable, fit) {
  cat("\n\nCoefficients:")
  print(knitr::kable(coefficientsTable, format = "simple"))
  cat("---\nSignif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n\n")
  cat(paste("Number of individuals:", fit$info$N, "\nNumber of waves:", fit$info$T, "\n\n"))

  return(NULL)
}