[SAM] store JAC in output = "list" if se = "local"

yrosseel · Nov 16, 2024 · 5a0e02b · 5a0e02b
1 parent 81ec552
commit 5a0e02b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: lavaan
 Title: Latent Variable Analysis
-Version: 0.6-20.2233
+Version: 0.6-20.2234
 Authors@R: c(person(given   = "Yves", family = "Rosseel",
                     role    = c("aut", "cre"),
                     email   = "[email protected]",

diff --git a/R/xxx_sam.R b/R/xxx_sam.R
@@ -272,7 +272,7 @@ sam <- function(model = NULL,
     for (g in seq_len(FIT@Data@ngroups)) {
       Gamma.eta[[g]] <- JAC[[g]] %*% Gamma[[g]] %*% t(JAC[[g]])
     }
-    # STEP1$JAC <- JAC
+    STEP1$JAC <- JAC
     STEP1$Gamma.eta <- Gamma.eta
   }