R/starts_estimate_model_fit.R

In alexanderrobitzsch/STARTS: Functions for the STARTS Model

## File Name: starts_estimate_model_fit.R
## File Version: 0.123

starts_estimate_model_fit <- function( covmat, covmat_fitted, deviance,
            deviance_saturated, df_sem,    nobs, some_missings)
{
    #--- SRMR
    if ( ! some_missings ){
        srmr <- starts_estimate_model_fit_srmr( covmat=covmat,
                            covmat_fitted=covmat_fitted )
    } else {
        srmr <- NA
    }

    #--- RMSEA
    res <- starts_estimate_model_fit_rmsea( deviance=deviance,
                        deviance_saturated=deviance_saturated,
                        df_sem=df_sem, nobs=nobs )
    chisq <- res$chisq
    p_chisq <- res$p_chisq
    df_sem <- res$df_sem
    rmsea <- res$rmsea
    #--- output
    res <- list( SRMR=srmr, chisq=chisq, df_sem=df_sem, p_chisq=p_chisq, RMSEA=rmsea )
    return(res)
}