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 visual 1.000 textual 0.424 1.000 speed 0.467 0.290 1.000
データの詳細はこちら。
HTMTについてはこちら。
