26 lines
No EOL
884 B
R
26 lines
No EOL
884 B
R
returnInOrder <- function(inds, pop, globalRows, data, adjprior, priorTerm) {
|
||
# % Palauttaa yksil<69>t j<>rjestyksess<73> siten, ett<74> ensimm<6D>isen<65> on
|
||
# % se, jonka poistaminen populaatiosta pop nostaisi logml:n
|
||
# % arvoa eniten.
|
||
|
||
ninds <- length(inds)
|
||
apuTaulu <- c(inds, zeros(ninds, 1))
|
||
|
||
for (i in 1:ninds) {
|
||
ind <- inds[i]
|
||
rows <- globalRows[i, 1]:globalRows[i, 2]
|
||
diffInCounts <- computeDiffInCounts(
|
||
rows, size[COUNTS, 1], size[COUNTS, 2], data
|
||
)
|
||
diffInSumCounts <- sum(diffInCounts)
|
||
|
||
COUNTS[ , ,pop] <- COUNTS[ , ,pop] - diffInCounts
|
||
SUMCOUNTS[pop, ] <- SUMCOUNTS[pop, ] - diffInSumCounts
|
||
apuTaulu[i, 2] <- computePopulationLogml(pop, adjprior, priorTerm)
|
||
COUNTS[ , ,pop] <- COUNTS[ , ,pop] + diffInCounts
|
||
SUMCOUNTS[pop, ] <- SUMCOUNTS[pop, ] + diffInSumCounts
|
||
}
|
||
apuTaulu <- sortrows(apuTaulu, 2)
|
||
inds <- apuTaulu[ninds:1, 1]
|
||
return(inds)
|
||
} |