2020-10-19 15:58:08 +02:00
|
|
|
|
addToSummary <- function(logml, partitionSummary, worstIndex) {
|
2020-10-19 14:15:13 +02:00
|
|
|
|
# Tiedet<65><74>n, ett<74> annettu logml on isompi kuin huonoin arvo
|
|
|
|
|
|
# partitionSummary taulukossa. Jos partitionSummary:ss<73> ei viel<65> ole
|
|
|
|
|
|
# annettua logml arvoa, niin lis<69>t<EFBFBD><74>n worstIndex:in kohtaan uusi logml ja
|
|
|
|
|
|
# nykyist<73> partitiota vastaava nclusters:in arvo. Muutoin ei tehd<68> mit<69><74>n.
|
|
|
|
|
|
|
|
|
|
|
|
apu <- find(abs(partitionSummary[, 2] - logml) < 1e-5)
|
|
|
|
|
|
if (isempty(apu)) {
|
2020-10-19 15:58:08 +02:00
|
|
|
|
# Nyt l<>ydetty partitio ei ole viel<65> kirjattuna summaryyn.
|
|
|
|
|
|
npops <- length(unique(PARTITION))
|
|
|
|
|
|
partitionSummary[worstIndex, 1] <- npops
|
|
|
|
|
|
partitionSummary[worstIndex, 2] <- logml
|
|
|
|
|
|
added <- 1
|
2020-10-19 14:15:13 +02:00
|
|
|
|
} else {
|
2020-10-19 15:58:08 +02:00
|
|
|
|
added <- 0
|
2020-10-19 14:15:13 +02:00
|
|
|
|
}
|
|
|
|
|
|
return(list(partitionSummary = partitionSummary, added = added))
|
|
|
|
|
|
}
|
