R/cov_clm__summary.clm.theta__getThetaTable.R

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

getThetaTable <- function(fitTheta) {
  thetaTable <- tibble::tibble(
    "  " = fitTheta$sigmaThetaExpr$paramsNames,
    "Estimate" = round(fitTheta$optim$par, 4),
    "Std. Error" = round(sqrt(diag(fitTheta$covTheta)), 4)
  )

  return(thetaTable)
}