R/2.6.2.AGFIcalculation.R

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

AGFIcalculation <- function(GFI, fit, fitTheta) {
  numVechSigma <- fit$info$T * (fit$info$T + 1) / 2
  numParams <- length(fitTheta$optim$par)

  AGFI <- 1 - (numVechSigma / (numVechSigma - numParams)) * (1 - GFI)

  return(AGFI)
}