R/2.6.2.getGFIgofGLSC.R

Defines functions getGFIgofGLSC

getGFIgofGLSC <- function(fit, fitTheta) {
  nominator <- diag(1, nrow = fit$info$T, ncol = fit$info$T) - (fitTheta$sigmaTheta %*% solve(fit$sigmaHat))

  GFI <- 1 - sum(diag(nominator %*% nominator)) / fit$info$T

  return(GFI)
}

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.