Syntax fix (#25)

ocbe-uio · Aug 9, 2023 · 843a929 · 843a929
1 parent 15da6cd
commit 843a929
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/poistaTyhjatPopulaatiot.R b/R/poistaTyhjatPopulaatiot.R
@@ -7,7 +7,7 @@ poistaTyhjatPopulaatiot <- function(npops) {
   LOGDIFF <- LOGDIFF[, notEmpty]
 
   for (n in 1:length(notEmpty)) {
-    apu <- matlab2r::find(PARTITION == notEmpty(n))
+    apu <- matlab2r::find(PARTITION == notEmpty[n])
     PARTITION[apu] <- n
   }
   npops <- length(notEmpty)