Small fix to the Structure plot.

Author: pcarbo

DESCRIPTION

@@ -1,8 +1,8 @@
 Encoding: UTF-8
 Type: Package
 Package: fastTopics
-Version: 0.7-24
-Date: 2025-02-20
+Version: 0.7-25
+Date: 2025-06-03
 Title: Fast Algorithms for Fitting Topic Models and Non-Negative
     Matrix Factorizations to Count Data
 Authors@R: c(person("Peter","Carbonetto",role=c("aut","cre"),

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-24).\n")
+    cat("(fastTopics 0.7-25).\n")
   }
 
   # INITIALIZE ESTIMATES

R/structure_plot.R

@@ -403,7 +403,7 @@ compile_grouped_structure_plot_data <- function (L, topics, grouping,
     out$sample <- out$sample + m
     n          <- length(i)
     dat        <- rbind(dat,out)
-    ticks[j]   <- m + n/2
+    ticks[j]   <- m + (n + 1)/2
     m          <- m + n + gap
   }
   return(list(dat = dat,ticks = ticks))