20.1 Modello congenerico

model.congeneric <- "
  auditorymemory =~ x1 + x2 + x3
  visualmemory   =~ x4 + x5 + x6
"

fit.congeneric <- cfa(
  model.congeneric,
  sample.cov = covs,
  sample.nobs = 200,
  std.lv = TRUE
)

L’output (qui non fornito) si ottiene con:

summary(
  fit.congeneric,
  fit.measures = TRUE,
  standardized = TRUE,
  rsquare = TRUE
)