Description Usage Arguments Details Value Examples
View source: R/measurementInvarianceTable.R
Produces a table summarizing the results of a measurement invariance analysis as conducted by the respective function of the lavaan and semTools package.
1 | measurementInvarianceTable(measurement.invariance)
|
measurement.invariance |
Results returned by the measurementInvariance function of the lavaan or semTools package. |
Please note that if the scaled chi-squared statistic is used a special chi-squared difference test is calculated, because the difference between two scaled chi-square statistics does not follow the chi-squared distribution. See also http://www.statmodel.com/chidiff.shtml.
A measurement invariance table.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | #Must have semTools and lavaan installed
library(semTools)
library(lavaan)
#Example taken from the semTools package
HW.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
mi.result <- measurementInvariance(HW.model,
data=HolzingerSwineford1939, group="school")
tab.1 <- measurementInvarianceTable(mi.result)
tab.1
mi.strict.result <- measurementInvariance(HW.model,
data=HolzingerSwineford1939, strict=TRUE, group="school")
tab.2 <- measurementInvarianceTable(mi.strict.result)
tab.2
mi.robust.result <- measurementInvariance(HW.model,
data=HolzingerSwineford1939, estimator="MLM", group="school")
tab.3 <- measurementInvarianceTable(mi.robust.result)
tab.3
mi.robstrict.result <- measurementInvariance(HW.model,
data=HolzingerSwineford1939, estimator="MLM", strict=TRUE, group="school")
tab.4 <- measurementInvarianceTable(mi.robstrict.result)
tab.4
#saveTable(tab.2, "measurementInvarianceTable.rtf")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.