Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.