R/1.4.4.getSigmaIdentity.R

Defines functions getSigmaIdentity

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

  return(sigma)
}

Try the Mmcsd package in your browser

Any scripts or data that you put into this service are public.

Mmcsd documentation built on March 31, 2023, 7:23 p.m.