Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ### STAÐFESTANDI ÞÁTTAGREINING ###
- myModel <- 'f1 =~ L1 + L2 + L3 + L4 + L5 + L6 + L7 + L8 + L9 + L10'
- fit1 <- cfa(myModel, data = df3)
- summary(fit1)
- kable(fitmeasures(fit1, fit.measures = c("chisq", "df", "pvalue", "cfi","tli","srmr")))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement