www.rdocumentation.org library(semTools) HS.model <- ' visual =~ x1 + x2 + x3 textual =~ x4 + x5 + x6 speed =~ x7 + x8 + x9 ' dat <- HolzingerSwineford1939[, paste0("x", 1:9)] htmt(HS.model, dat, sample.cov = NULL, missing = "listwise", ordered = NULL, absolute = TRUE) 結果。 visual textul speed vi…
