From efa98b98839f1c6b2f12dac55987f7e89498fa9b Mon Sep 17 00:00:00 2001 From: philchalmers Date: Tue, 17 Dec 2024 13:42:50 -0500 Subject: [PATCH] return sparse grid when using QMCEM --- R/03-estimation.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/03-estimation.R b/R/03-estimation.R index 1c882a8a..efdb9799 100644 --- a/R/03-estimation.R +++ b/R/03-estimation.R @@ -1135,6 +1135,9 @@ ESTIMATION <- function(data, model, group, itemtype = NULL, guess = 0, upper = 1 if(opts$storeEtable){ Internals$Etable <- ESTIMATE$Etable Internals$Theta <- Theta + if(opts$method == 'QMCEM') + Internals$Theta <- updateTheta(npts=opts$quadpts, nfact=nfact, + pars=pars, QMC=TRUE)[[1]] } if(opts$storeEMhistory) Internals$EMhistory <- ESTIMATE$EMhistory