Fixed a bug that was introduced in the previous commit.

Author: pcarbo

DESCRIPTION

@@ -1,7 +1,7 @@
 Encoding: UTF-8
 Type: Package
 Package: fastTopics
-Version: 0.7-36
+Version: 0.7-37
 Date: 2025-12-21
 Title: Fast Algorithms for Fitting Topic Models and Non-Negative
     Matrix Factorizations to Count Data

R/fit_poisson_nmf.R

@@ -455,7 +455,7 @@ fit_poisson_nmf <- function (X, k, fit0, numiter = 100,
     cat(sprintf("Running at most %d %s updates, %s extrapolation ",
                 numiter,method.text,
                 ifelse(control$extrapolate,"with","without")))
-    cat("(fastTopics 0.7-36).\n")
+    cat("(fastTopics 0.7-37).\n")
   }
 
   # INITIALIZE ESTIMATES

src/pnmfem.cpp

@@ -26,7 +26,7 @@ inline vec pnmfem_update_factor_sparse (const sp_mat& X, const mat& F,
   unsigned int n = x.n_elem;
   vec          f = F.col(j);
   if (n == 0)
-    return;
+    return f;
   uvec i(n);
   getcolnonzeros(X,i,j);
   poismixem(L1,u,x,i,f,numiter);