20.3 Modello parallelo

Solo memoria auditiva:

model.parallel.a <- "
  auditorymemory =~ x1 + v1*x1 + v1*x2 + v1*x3
  visualmemory   =~ x4 + v2*x4 + v2*x5 + v2*x6
  x1 ~~ v3 * x1
  x2 ~~ v3 * x2
  x3 ~~ v3 * x3
"
fit.parallel.a <- cfa(
  model.parallel.a,
  sample.cov = covs,
  sample.nobs = 200,
  std.lv = TRUE
)

Memoria auditiva e visiva:

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

  x4 ~~ v4 * x4
  x5 ~~ v4 * x5
  x6 ~~ v4 * x6
"
fit.parallel.av <- cfa(
  model.parallel.av,
  sample.cov = covs,
  sample.nobs = 200,
  std.lv = TRUE
)