From 843a9299385b1d84612d3dcd94d45c5bea5b0dfd Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Wed, 9 Aug 2023 14:16:04 +0200
Subject: [PATCH] Syntax fix (#25)

---
 R/poistaTyhjatPopulaatiot.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/poistaTyhjatPopulaatiot.R b/R/poistaTyhjatPopulaatiot.R
index c1974f6..4f51928 100644
--- 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)