R/clm__getSigmaMatrix__getSigmaExchangeable__getSigmaIdentity.R

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

Defines functions getSigmaIdentity

getSigmaIdentity <- function(modelComponents) {
  sigma <- diag(dim(unique(modelComponents$waves[, 1]))[1])
  attr(sigma, "type") <- "identity"

  return(sigma)
}