สรุปผลโมเดลหลายปัจจัย

# Previous one-factor model output
summary(text.fit, standardized = TRUE, fit.measures = TRUE)

# Two-factor model specification
twofactor.model <- 'text =~ x4 + x5 + x6
speed =~ x7 + x8 + x9'

# Use cfa() to analyze the model and include data argument


# Use summary() to view the fitted model