fix bad state

philchalmers · Nov 6, 2024 · eccd0b8 · eccd0b8
1 parent 1b07118
commit eccd0b8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/06-LoadPars.R b/R/06-LoadPars.R
@@ -277,7 +277,7 @@ LoadPars <- function(itemtype, itemloc, lambdas, zetas, guess, upper, fulldata,
         item_nfi <- ifelse(!is.null(mixed.design) &&
                           mixed.design$has_idesign[i], nfixedeffects, 0)
         item_nfact <- nfact
-        if(!mixed.design$has_idesign[i])
+        if(!is.null(mixed.design) && !mixed.design$has_idesign[i])
             item_nfact <- nfact - nfixedeffects