max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Translated findEmptyPop

Browse source
This commit is contained in:
Waldir Leoncio 2020-11-09 08:33:02 +01:00
parent 03bec3b4b4
commit e31dec2786
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
R/findEmptyPop.R Normal file
View file

@ -0,0 +1,12 @@
findEmptyPop <- function(npops) {
# % Palauttaa ensimm<6D>isen tyhj<68>n populaation indeksin. Jos tyhji<6A>
# % populaatioita ei ole, palauttaa -1:n.
pops <- t(unique(PARTITION))
if (length(pops) == npops) {
emptyPop <- -1
} else {
popDiff <- diff(c(0, pops, npops + 1))
emptyPop <- min(find(popDiff > 1))
}
return(list(emptyPop = emptyPop, pops = pops))
}