# generate syntax for an independence model
HS.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
fit <- cfa(HS.model, data=HolzingerSwineford1939)
lav <- lav_partable_independence(fit)
as.data.frame(lav, stringsAsFactors = FALSE)
# how many free parameters?
lav_partable_npar(lav)
# how many sample statistics?
lav_partable_ndat(lav)
# how many degrees of freedom?
lav_partable_df(lav)
Run the code above in your browser using DataLab