# Prepare Data
data("mtcars")
# Fit structural equation model
# Extract statistics
N1 <- 1222
m <- 1
Tml1 <- 408.793
df1 <- 80
# Equivalence test
equiv_chi(alpha = .05, chi = Tml1, df = df1, m = 1, N_sample = N1, popRMSEA = .08)
Run the code above in your browser using DataLab