From eccd0b8b1138593a6af36bbd20174c15b297219f Mon Sep 17 00:00:00 2001 From: philchalmers Date: Wed, 6 Nov 2024 11:18:16 -0500 Subject: [PATCH] fix bad state --- R/06-LoadPars.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/06-LoadPars.R b/R/06-LoadPars.R index 1d0698c4..1cdc1995 100644 --- 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