fix false alarm about non-block-diagonal psi

ecmerkle · Dec 21, 2023 · 5b71179 · 5b71179
1 parent cc89ddd
commit 5b71179
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: blavaan
 Title: Bayesian Latent Variable Analysis
-Version: 0.5-2.1207
+Version: 0.5-2.1208
 Authors@R: c(person(given = "Edgar", family = "Merkle",
                     role = c("aut", "cre"),
                     email = "[email protected]",

diff --git a/R/lav_export_stanmarg.R b/R/lav_export_stanmarg.R
@@ -561,7 +561,7 @@ lav2stanmarg <- function(lavobject, dp, n.chains, inits, wiggle=NULL, wiggle.sd=
     ## a separate parameter specification in Stan
     if (length(ublksizes) > 5 | length(ublksizes) == 0) {
       blkinfo <- NULL
-      blkpsi <- FALSE
+      if (length(ublksizes) > 5) blkpsi <- FALSE
       dat$nblk <- array(0, dim = 5)
       dat$psidims <- array(3, dim = 5)
       dat$blkse <- matrix(nrow = 0, ncol = 7)