R/cov_clm__fitThetaModel__fitThetaCovariance__fitThetaCovarGLSC__getDerivVechMatrix.R

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

getDerivVechMatrix <- function(derivSigmaThetaList) {
  derivVechMatrix <- sapply(derivSigmaThetaList, function(derivSigmaThetaj) {
    matrix(derivSigmaThetaj[lower.tri(derivSigmaThetaj, diag = TRUE)], ncol = 1)
  })

  return(derivVechMatrix)
}