R/cov_clm__getFittingFunction__fittingULSC.R

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

fittingULSC <- function(sigmaThetaExprList, fit) {
  function(params) {
    sigmaTheta <- evalSigmaThetaExprList(sigmaThetaExprList, as.list(params))

    sum(diag((fit$sigmaHat - sigmaTheta) %*% t(fit$sigmaHat - sigmaTheta))) / 2
  }
}