R/2.3.2.1.getDerivVechMatrix.R

In Mmcsd: Modeling Complex Longitudinal Data in a Quick and Easy Way

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

  return(derivVechMatrix)
}