Syntax fix (#25)

This commit is contained in:
Waldir Leoncio 2023-08-09 14:16:04 +02:00
parent 15da6cdced
commit 843a929938

View file

@ -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)