R/starts_estimate_model_fit_rmsea.R

In alexanderrobitzsch/STARTS: Functions for the STARTS Model

## File Name: starts_estimate_model_fit_rmsea.R
## File Version: 0.07


starts_estimate_model_fit_rmsea <- function( deviance, deviance_saturated, df_sem, nobs )
{
    chisq <- deviance - deviance_saturated
    p_chisq <- stats::pchisq( chisq, df=df_sem, lower.tail=FALSE )
    rmsea <- sqrt( max( chisq - df_sem, 0) / df_sem / ( nobs - 1 ) )
    #--- output
    res <- list(chisq=chisq, p_chisq=p_chisq, df_sem=df_sem, rmsea=rmsea)
    return(res)
}