multilevel: initialize blavaan object with 1-iteration lavaan run

ecmerkle · Aug 28, 2023 · 687d4bf · 687d4bf
1 parent 7375a1d
commit 687d4bf
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: blavaan
 Title: Bayesian Latent Variable Analysis
-Version: 0.4-9.1157
+Version: 0.4-9.1158
 Authors@R: c(person(given = "Edgar", family = "Merkle",
                     role = c("aut", "cre"),
                     email = "merklee@missouri.edu",

diff --git a/R/blavaan.R b/R/blavaan.R
@@ -323,8 +323,8 @@ blavaan <- function(...,  # default lavaan arguments
         if(!any(is.na(unlist(lavInspect(LAV, 'data'))))) dotdotdot$missing <- "listwise"
     }
 
-    # for initial values/parameter setup:
-    if(jag.do.fit & !any(lavInspect(LAV, 'nlevels') > 1)) {
+    # for initial values/some parameter setup:
+    if(jag.do.fit){
         LAV2 <- try(do.call("lavaan", dotdotdot), silent = TRUE)
         if(!inherits(LAV2, 'try-error')) LAV <- LAV2
     }