return sparse grid when using QMCEM

philchalmers · Dec 17, 2024 · efa98b9 · efa98b9
1 parent bd4a1f6
commit efa98b9
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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