20.2 Modello tau-equivalente

Solo memoria auditiva:

model.tau.a <- "
  auditorymemory =~ x1 + v1*x1 + v1*x2 + v1*x3
  visualmemory   =~ x4 + x5 + x6
"

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

Memoria auditiva e visiva:

model.tau.av <- "
  auditorymemory =~ x1 + v1*x1 + v1*x2 + v1*x3
  visualmemory   =~ x4 + v2*x4 + v2*x5 + v2*x6
"

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