# Define 30 items divided by ten triplets as blocks
blocks <- matrix(c(1:30), ncol = 3)
# Assume the model yield the following fit, with 426 respondents
# chi2_mod = 224.456, df_mod = 59, chi2_base = 1056.566, df_base = 90
fit.correct(426,blocks,224.456,59,1056.566,90)
# The corrected values are rmsea = 0.0917892; cfi = 0.8184749
Run the code above in your browser using DataLab