cfa_invariance_test: SEM model comparison (Chisquare-test)

In masurp/pmstats: Customized Functions for Statistical Computations, Result Extractions, and Reporting

Description

This function creates a data frame that display a classical Chisqare-test of differently configured SEM/CFA models. This function is similarly written as cfa_invariance_fit. Both functions are meant to be used together.

Usage

cfa_invariance_test(..., model_names = NULL, print = FALSE)

Arguments

...	Objects objects of class lavaan (e.g., with base, weak, strong and strict invariance constraints).
model_names	Do you want to rename the models? Provide a vector with the respective model names.
print	A logical value indicating whether table shoud be formatted according to APA-guidelines.

Examples

library(lavaan)
d <- PoliticalDemocracy %>% na.omit
model_1 <- '
  # latent variables
  ind60 =~ x1 + x2 + x3
  dem60 =~ y1 + y2 + y3 + y4
  dem65 =~ y5 + y6 + y7 + y8
'
fit_1 <- cfa(model_1, data = d)

model_2 <- '
  # latent variables
  ind60 =~ x1 + x2 + x3
  dem60 =~ y1 + y2 + y3
  dem65 =~ y5 + y6 + y7 + y8
'
fit_2 <- cfa(model_2, data = d)

# Model comparison
cfa_invariance_test(fit_1, fit_2)

# Renaming model names
cfa_invariance_test(fit_1, fit_2, model_names = c("Model 1: All variables", "Model 2: Some omissions"), print = TRUE)

masurp/pmstats documentation built on Oct. 6, 2020, 9:24 p.m.