R/cov_clm__fitThetaModel__fitThetaCovariance__fitThetaCovarGLSC____main.R

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

fitThetaCovarGLSC <- function(fitTheta, sigmaThetaExprList, derivativesExprList, fit) {
  thetaList <- as.list(fitTheta$optim$par)
  derivSigmaThetaList <- evalDerivSigmaThetaExprList(derivativesExprList, sigmaThetaExprList, thetaList)
  derivVechMatrix <- getDerivVechMatrix(derivSigmaThetaList)

  UMatrix <- getUMatrix(fit)

  covTheta <- getCovTheta(derivVechMatrix, UMatrix, fit)

  return(covTheta)
}