R/starts_estimate_model_fit_srmr.R

Defines functions starts_estimate_model_fit_srmr

## File Name: starts_estimate_model_fit_srmr.R
## File Version: 0.05

starts_estimate_model_fit_srmr <- function(covmat, covmat_fitted)
{
    # sd_diag <- sqrt( diag(covmat) )
    sd_diag <- sqrt( diag(covmat_fitted) )
    #-- Mplus version; include different versions, see lavaan package
    srmr <- ( ( covmat - covmat_fitted )/ outer( sd_diag, sd_diag ) )^2
    srmr <- sqrt( mean( srmr ) )
    return(srmr)
}
alexanderrobitzsch/STARTS documentation built on March 27, 2024, 5:38 a.m.