# Testing for Measurement Invariance in R

Researchers conduct measurement invariance analysis to ensure that the interpretations of latent construct(s) being measured with their measurement instruments (e.g., scales, surveys, and questionnaires) are valid across subgroups of a target population or multiple time points. In this post, I demonstrate how to test for measurement invariance (i.e., configural, metric, scalar, and strict invariance) of an instrument using R.

(11 min read)

Okan Bulut http://www.okanbulut.com/ (University of Alberta)https://www.ualberta.ca
12-21-2020

## Measurement Invariance

In the social sciences, researchers often use self-reported measurement instruments (e.g., scales, surveys, and questionnaires) to assess different latent constructs (e.g., emotions, attitudes, and preferences). Data collected through such instruments are typically used for comparing groups at a particular time point or comparing the same individuals across multiple time points. To be able to make valid group comparisons, researchers must ensure that the instrument measures the target latent construct(s) with the same factorial structure across groups. If the measurement instrument can sufficiently maintain its factorial structure across groups, it is called measurement invariant (MI). The lack of measurement invariance (i.e., measurement non-variance) indicates that the latent constructs cannot be measured and interpreted in the same way across groups.

For example, a researcher could design a new questionnaire to measure attitudes toward spirituality and administer the instrument to a sample of respondents in the target population. Depending on the quality of the items in the questionnaire, individuals from different ethnic and religious groups may perceive and interpret spirituality differently. Thus, individuals from a particular ethnic group might be less (or more) likely to endorse the items on the questionnaire. If this situation significantly affects individuals’ response behaviors, then it is also very likely to influence the factorial structure of the questionnaire. If this is the case, the questionnaire is not measurement invariant and therefore group comparisons based on the results of the questionnaire will not be valid.

This post has been inspired by ’s checklist for testing for measurement invariance. The authors provide a nice description of measurement invariance along with Mplus syntax for all the analyses described in their paper. Similarly, in this post I will briefly describe the steps for testing measurement invariance and then demonstrate how to conduct measurement invariance analyses in R. To test for measurement invariance, we need to estimate and compare increasingly constrained confirmatory factor analysis (CFA) models with each other:

• Configural invariance model: A multi-group CFA model fitted for each group separately, without any equality constraints. This model allows us to test whether the same factorial structure holds across all groups.
• Metric invariance model: A constrained version of the configural model where the factor loadings are assumed to be equal across groups but the intercepts are allowed to vary between groups.
• Scalar invariance model: A constrained version of the metric model where both the factor loadings and intercepts are assumed to be equal across groups.
• Strict invariance model: A constrained version of the scalar model where the factor loadings, intercepts, and residual variances are fixed across groups.

To evaluate the configural model for each group, we can use ’s guidelines for model fit indices: (1) Comparative fit index (CFI) > .95; Tucker-Lewis index (TLI) > .95; and root mean square error of approximation (RMSEA) < .06. With sufficient model fit for configural invariance, we can proceed to metric invariance.

To test metric invariance, we need to compare the configural model against the metric model using a chi-square difference ($$\Delta\chi^2$$) test. If the test is significant, then there is a lack of metric invariance and thus there is no need to test scalar and strict invariance. If, however, the test is not significant, then metric invariance is established and thus we can move to the next step, scalar invariance.

To assess scalar invariance, we need to follow a similar approach by comparing the scalar model against the metric model. A statistically insignificant result for the $$\Delta\chi^2$$ test would indicate scalar invariance of the factorial model. suggest that scalar invariance must hold to be able to interpret latent means and correlations across groups. If scalar invariance is not fully satisfied, then partial MI could be established by adjusting factor loadings and/or intercepts .

Finally, if either partial or full scalar variance holds, then we can test strict invariance by comparing the strict model with the scalar model. note that with the lack of strict invariance, groups can still be compared on the latent construct(s). Figure 1 shows a summary of the steps for testing different types of MI based on the four invariance models summarized above.

## Example

To demonstrate the test of measurement invariance, I will be using the Consumer Financial Protection Bureau (CFPB)’s Financial Well-Being Scale. CFPB defines financial well-being as follows:

Financial well-being is a state of being wherein a person can fully meet current and ongoing financial obligations, can feel secure in their financial future, and is able to make choices that allow them to enjoy life.

To measure the construct of financial well-being, CFPB created the Financial Well-Being Scale that consists of ten rating scale items. The items cover all four elements of the CFPB’s definition of financial well-being: control over finances, capacity to absorb a financial shock, being on track to meet financial goals, and having the financial freedom to enjoy life, using both positive and negative phrasing. Figure 2 shows a list of the items and their response options.

CFPB’s technical report on the Financial Well-Being Scale indicates that there are two latent dimensions (i.e., factors) associated with the polarity of the items (i.e., whether the items were phrased negatively or positively). Figure 3 demonstrates the factorial structure of the Financial Well-Being Scale.

For this demonstration, I have already cleaned up the original data set and saved it as finance.csv. You can see the codes for data cleaning and preparation here. Also, the cleaned data set (i.e., finance.csv) is available here.

finance <- read.csv("finance.csv", header = TRUE)


The following table shows the finance data set. There are 3,811 respondents (1701 female, 2110 male) who responded to the items in the scale.

Before we begin the measurement invariance analysis, we need to active the R packages that we will utilize in the example. We will use dplyr for organizing data, corrplot for visualizing the correlation matrix of the items, lavaan to estimate multi-group CFA models, and semTools to run model comparison tests.

library("dplyr")
library("corrplot")
library("lavaan")
library("semTools")


Now we can go ahead and visualize the correlations among the items using the corrplot function. This is a preliminary analysis to check whether the items in the Financial Well-Being Scale are associated with each other. We already know the factorial structure of the scale but this plot will show how strongly the items are associated with each other and whether there are two groups of items (one for positively-worded items and another for negatively-worded items).

# Correlation matrix of items
cormat <- finance %>%
select(starts_with("item")) %>%
cor()

# Correlation matrix plot
corrplot.mixed(cormat)


The plot shows that the items are moderately correlated with each other. Due to the polarity of the items, some of the correlations are negative (red), while the others are positive (blue). We can use hierarchical clustering to group the items together in the same plot. The next plot shows that positively-worded items (items 1, 2, 4, and 8) have been grouped together in the upper rectangle, while the remaining six items (i.e., negatively-worded items) have been grouped in the lower rectangle.

corrplot(cormat, order = "hclust", addrect = 2)


Next, using the lavaan package (see https://lavaan.ugent.be/ for more information on the package), we will estimate a series of multi-group CFA models using gender as a group variable. For all of the models, the baseline model is the same: a two-factor model where the positively-worded items define one dimension and the negatively-worded items define another dimension. Therefore, we define model with two factors (positive and negative) and assume that the two factors are correlated with each other: positive ~~ negative

# Two-factor CFA model
model <- 'positive =~ item1 + item2 + item4 + item8
negative =~ item3 + item5 + item6 + item7 + item9 + item10
positive ~~ negative'


### Configural Invariance

Our first invariance model is the configural invariance model. This is a multi-group CFA model separately estimated for male and female respondents in the finance data set. Since the items follow a 5-point rating scale, we will use the WLSMV estimator – which is more suitable for categorical and ordinal data. We will also add group = “gender” to estimate the same CFA model for female and male respondents separately.

# Configural model
cfa.config <- cfa(model, data = finance, estimator = "WLSMV", group = "gender")

summary(cfa.config, fit.measures = TRUE, standardized = TRUE)


The following (partial) output shows the model fit indices. The results show that the fit indices from the configural model are aligned with ’s guidelines for good model fit.

User Model versus Baseline Model:

Comparative Fit Index (CFI)                    0.997       0.959
Tucker-Lewis Index (TLI)                       0.996       0.945

Robust Comparative Fit Index (CFI)                            NA
Robust Tucker-Lewis Index (TLI)                               NA

Root Mean Square Error of Approximation:

RMSEA                                          0.028       0.065
90 Percent confidence interval - lower         0.023       0.060
90 Percent confidence interval - upper         0.034       0.070
P-value RMSEA <= 0.05                          1.000       0.000

Robust RMSEA                                                  NA
90 Percent confidence interval - lower                        NA
90 Percent confidence interval - upper                        NA

Standardized Root Mean Square Residual:

SRMR                                           0.029       0.029

### Metric Invariance

Next, we will create a metric invariance model. The R codes for this model are nearly identical to those from the configural model. However, we add group.equal = “loadings” to fix the factor loadings to be the same for the female and male models. After estimating the metric model, we will compare it against the configural model using the compareFit function from semTools.

# Metric model
cfa.metric <- cfa(model, data = finance, estimator = "WLSMV", group = "gender",
group.equal = "loadings")

# Model comparison
compareFit(cfa.config, cfa.metric)

################### Nested Model Comparison #########################
Scaled Chi-Squared Difference Test (method = "satorra.2000")

lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.

Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
cfa.config 68           171
cfa.metric 76           190       9.69       8       0.29

####################### Model Fit Indices ###########################
chisq.scaled df.scaled pvalue.scaled cfi.scaled tli.scaled
cfa.config     614.530         68          .000      .959       .945
cfa.metric     359.295†        76          .000      .978†      .975†
rmsea.scaled  srmr
cfa.config        .065  .029†
cfa.metric        .044† .031

################## Differences in Fit Indices #######################
df.scaled cfi.scaled tli.scaled rmsea.scaled
cfa.metric - cfa.config         8       0.02      0.029       -0.021
srmr
cfa.metric - cfa.config 0.002

The results above show that the chi-square difference test was not statistically significant; $$\Delta \chi^2 = 9.69, df = 8, p = 0.29$$. This finding suggests that after constraining the factor loadings to be equal across groups, the model fit did not change substantially. In other words, the constrained model (i.e., metric model) fits the data equally well. The model fit indices also indicate a good fit for the metric model.

### Scalar Invariance

Since metric invariance has been established, we can test scalar invariance for the Financial Well-Being Scale. This time, in addition to factor loadings, we also add intercepts to the list of parameters to be constrained equal between female and male participants: group.equal = c(“loadings,”“intercepts”)

# Scalar model
cfa.scalar <- cfa(model, data = finance, estimator = "WLSMV", group = "gender",
group.equal = c("loadings","intercepts"))

# Model comparison
compareFit(cfa.metric, cfa.scalar)

################### Nested Model Comparison #########################
Scaled Chi-Squared Difference Test (method = "satorra.2000")

lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.

Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
cfa.metric 76           190
cfa.scalar 84           209       41.9       8    1.4e-06 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

####################### Model Fit Indices ###########################
chisq.scaled df.scaled pvalue.scaled cfi.scaled tli.scaled
cfa.metric     359.295†        76          .000      .978†      .975†
cfa.scalar     402.289         84          .000      .976       .974
rmsea.scaled  srmr
cfa.metric        .044† .031†
cfa.scalar        .045  .032

################## Differences in Fit Indices #######################
df.scaled cfi.scaled tli.scaled rmsea.scaled
cfa.scalar - cfa.metric         8     -0.003          0            0
srmr
cfa.scalar - cfa.metric 0.001

The chi-square difference test was significant; $$\Delta \chi^2 = 41.9, df = 8, p < .001$$. Despite good model-fit indices presented in the rest of the output, the statistically significant result suggests that there is a lack of scalar invariance for the Financial Well-Being Scale. Thus, we will try to establish partial MI. We will use lavTestScore to view which fixed (or constrained) parameters in the model should be released to improve the fit for the scalar model.

lavTestScore(cfa.scalar)


univariate score tests:

lhs op   rhs    X2 df p.value
1   .p2. == .p37. 0.272  1   0.602
2   .p3. == .p38. 1.778  1   0.182
3   .p4. == .p39. 0.169  1   0.681
4   .p6. == .p41. 4.049  1   0.044
5   .p7. == .p42. 1.989  1   0.158
6   .p8. == .p43. 3.753  1   0.053
7   .p9. == .p44. 2.274  1   0.132
8  .p10. == .p45. 0.002  1   0.962
9  .p24. == .p59. 5.206  1   0.023
10 .p25. == .p60. 0.253  1   0.615
11 .p26. == .p61. 5.318  1   0.021
12 .p27. == .p62. 0.269  1   0.604
13 .p28. == .p63. 3.364  1   0.067
14 .p29. == .p64. 0.390  1   0.532
15 .p30. == .p65. 0.122  1   0.727
16 .p31. == .p66. 7.561  1   0.006
17 .p32. == .p67. 0.541  1   0.462
18 .p33. == .p68. 1.728  1   0.189

The partial output above shows which parameters should be released between the groups in order to establish partial MI. By reviewing the p.value column, we can identify the parameters that are expected to have a significant impact on model fit (i.e., those with $$p < .05$$). For example, these are some influential parameters:

• .p24. == .p59.
• .p26. == .p61.
• .p31. == .p66.

With the list of potential parameters to adjust, we can make changes in the scalar model. However, we do not know what these parameters refer to in the original scalar model. For example, we know that we want to freely estimate .p24. and .p59. but we do not know what these parameters mean for the model. To better understand these parameters, we will use parTable and print out the list of all parameters in the model.

parTable(cfa.scalar)


The plabel column in the output shows the labels for all parameters estimated for the scalar model. To interpret the output more easily, we can refer to the following table on the lavaan website (https://lavaan.ugent.be/tutorial/syntax1.html).

Formula Type lavaan Operator Meaning
Latent variable =~ is measured by
Regression ~ is regressed on
Residual co(variance) ~~ is correlated with
Intercept ~1 intercept

Going back to the influential parameters we have identified earlier, we see that .p24. and .p59. are the intercept parameters of item 1 estimated for females and males, respectively. Instead of fixing these intercept parameters, we can estimate them freely for females and males. Similarly, the parameter couples of .p26.-.p61. and .p31.-.p66. also refer to intercept parameters for items 4 and 7, respectively. That is, we can release the constraints for these parameters to establish partial MI.

Ideally, we should make one change at a time and compare the new model against the metric model until partial MI is satisfied. For the sake of brevity, I will make three changes to the scalar model all at once, estimate the adjusted model, and compare it with the metric model. The group.partial command is where we specify which parameters should be released in the model (i.e., freely estimated for females and males). In our model, we want to release the constraints on the intercept parameters for items 1, 4, and 7.

# Adjust the model
cfa.scalar2 <- cfa(model, data = finance, estimator = "WLSMV", group = "gender",
group.equal = c("loadings","intercepts"),
group.partial = c("item1 ~ 1", "item4 ~ 1", "item7 ~ 1"))

# Model comparison
compareFit(cfa.metric, cfa.scalar2)

################### Nested Model Comparison #########################
Scaled Chi-Squared Difference Test (method = "satorra.2000")

lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.

Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
cfa.metric  76           190
cfa.scalar2 81           194       7.84       5       0.17

####################### Model Fit Indices ###########################
chisq.scaled df.scaled pvalue.scaled cfi.scaled
cfa.metric      359.295†        76          .000      .978†
cfa.scalar2     369.598         81          .000      .978
tli.scaled rmsea.scaled  srmr
cfa.metric       .975         .044  .031†
cfa.scalar2      .976†        .043† .031

################## Differences in Fit Indices #######################
df.scaled cfi.scaled tli.scaled rmsea.scaled
cfa.scalar2 - cfa.metric         5          0      0.001       -0.001
srmr
cfa.scalar2 - cfa.metric    0

The comparison of the adjusted scalar model and the metric model indicates that the chi-square difference test is not significant anymore; $$\Delta \chi^2 = 7.84, df = 5, p = 0.17$$. Also, the model fit indices for the adjusted scalar model is very good. Therefore, we can conclude that partial MI (more specifically, partial scalar invariance) is now established for the scale.

### Strict Invariance

In the last step, we will check strict invariance. Using the adjusted scalar model from the previous analysis, we will build a new model where residuals will be constrained to be equal for female and male participants. So, we add residuals into the list of equality constraints (i.e., group.equal). The output below shows that the chi-square difference test is not significant; $$\Delta \chi^2 = 15.9, df = 10, p = 0.1$$. Therefore, we can conclude that the Financial Well-Being Scale indicates strict invariance across the female and male groups.

# Strict model
cfa.strict <- cfa(model, data = finance, estimator = "WLSMV", group = "gender",
group.equal = c("loadings","intercepts", "residuals"),
group.partial = c("item1 ~ 1", "item4 ~ 1", "item7 ~ 1"))

compareFit(cfa.scalar2, cfa.strict)

################### Nested Model Comparison #########################
Scaled Chi-Squared Difference Test (method = "satorra.2000")

lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.

Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
cfa.scalar2 81           194
cfa.strict  91           204       15.9      10        0.1

####################### Model Fit Indices ###########################
chisq.scaled df.scaled pvalue.scaled cfi.scaled
cfa.scalar2     369.598†        81          .000      .978
cfa.strict      371.913         91          .000      .979†
tli.scaled rmsea.scaled  srmr
cfa.scalar2      .976         .043  .031†
cfa.strict       .979†        .040† .032

################## Differences in Fit Indices #######################
df.scaled cfi.scaled tli.scaled rmsea.scaled
cfa.strict - cfa.scalar2        10      0.001      0.003       -0.003
srmr
cfa.strict - cfa.scalar2 0.001

## Concluding Remarks

• To test for measurement invariance, sample size should be sufficient for both groups. In this example, I used a large data set with similar numbers of respondents for the gender groups. If sample size is quite small for a particular group, it could lead to higher levels of standard error and convergence issues depending on the complexity of the model (e.g., number of factors).

• Strict invariance is often very difficult to establish in practice. The Financial Well-Being Scale used in the above example is a high-quality instrument that was already pilot-tested and refined by the researchers. Therefore, it is not surprising that strict invariance could be established for the scale. However, especially for new instruments that have not been validated yet, establishing scalar invariance should be the main priority.

• Measurement invariance analyses demonstrated here can be summarized using a table with model fit indices, chi-square statistics, and so on. Also, important changes in the models (e.g., those that we made to establish partial MI) should be explained in the text. describe how to report the results of measurement invariance analyses.

• Testing for measurement invariance can help researchers identify which item(s) might be problematic and thus need to be altered in the future . To identify problematic items within the factor analysis framework, multiple indicators, multiple causes (MIMIC) models can be used .

Bulut, O., & Suh, Y. (2017). Detecting multidimensional differential item functioning with the multiple indicators multiple causes model, the item response theory likelihood ratio test, and logistic regression. Frontiers in Education, 2, 51. https://doi.org/10.3389/feduc.2017.00051
Hu, L., & Bentler, P. M. (1999). Cutoff criteria for fit indexes in covariance structure analysis: Conventional criteria versus new alternatives. Structural Equation Modeling: A Multidisciplinary Journal, 6(1), 1–55.
Jorgensen, T. D., Pornprasertmanit, S., Schoemann, A. M., & Rosseel, Y. (2020). semTools: Useful tools for structural equation modeling. https://CRAN.R-project.org/package=semTools
Lugtig, P., Boeije, H. R., & Lensvelt-Mulders, G. J. (2012). Change? What change? Methodology, 8, 115–123. https://doi.org/10.1027/1614-2241/a000043
Rosseel, Y. (2012). lavaan: An R package for structural equation modeling. Journal of Statistical Software, 48(2), 1–36. http://www.jstatsoft.org/v48/i02/
Steenkamp, J.-B. E., & Baumgartner, H. (1998). Assessing measurement invariance in cross-national consumer research. Journal of Consumer Research, 25(1), 78–90.
Van de Schoot, R., Lugtig, P., & Hox, J. (2012). A checklist for testing measurement invariance. European Journal of Developmental Psychology, 9(4), 486–492.
Wei, T., & Simko, V. (2017). R package "corrplot": Visualization of a correlation matrix. https://github.com/taiyun/corrplot
Wickham, H., François, R., Henry, L., & Müller, K. (2020). Dplyr: A grammar of data manipulation. https://CRAN.R-project.org/package=dplyr

### Reuse

Text and figures are licensed under Creative Commons Attribution CC BY 4.0. The figures that have been reused from other sources don't fall under this license and can be recognized by a note in their caption: "Figure from ...".

### Citation

For attribution, please cite this work as

Bulut (2020, Dec. 21). Okan Bulut: Testing for Measurement Invariance in R. Retrieved from https://okan.cloud/posts/2020-12-21-testing-for-measurement-invariance-in-r/

BibTeX citation

@misc{bulut2020testing,
author = {Bulut, Okan},
title = {Okan Bulut: Testing for Measurement Invariance in R},
url = {https://okan.cloud/posts/2020-12-21-testing-for-measurement-invariance-in-r/},
year = {2020}
}