R/clm__summary.clm__catSigma.R

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

catSigma <- function(fit) {
  cat("Covariance Matrix Provided:\n")
  cat(paste("   Type:", attr(fit$sigma, "type")))
  if (!is.null(attr(fit$sigma, "rho"))) cat(paste("\n   rho:", round(attr(fit$sigma, "rho"), 4)))
  print(knitr::kable(fit$sigma, format = "simple", digits = 4))

  return(NULL)
}