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

Fixed syntax

Browse source
This commit is contained in:
Waldir Leoncio 2020-10-19 15:58:08 +02:00
parent 637df694bb
commit 74e11205b7
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
R/addToSummary.R
View file

@ -1,4 +1,4 @@
addToSummary <- funciton(logml, partitionSummary, worstIndex) { addToSummary <- function(logml, partitionSummary, worstIndex) {
# Tiedet<65><74>n, ett<74> annettu logml on isompi kuin huonoin arvo # Tiedet<65><74>n, ett<74> annettu logml on isompi kuin huonoin arvo
# partitionSummary taulukossa. Jos partitionSummary:ss<73> ei viel<65> ole # 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 # annettua logml arvoa, niin lis<69>t<EFBFBD><74>n worstIndex:in kohtaan uusi logml ja
@ -6,13 +6,13 @@ addToSummary <- funciton(logml, partitionSummary, worstIndex) {
apu <- find(abs(partitionSummary[, 2] - logml) < 1e-5) apu <- find(abs(partitionSummary[, 2] - logml) < 1e-5)
if (isempty(apu)) { if (isempty(apu)) {
# Nyt l<>ydetty partitio ei ole viel<65> kirjattuna summaryyn. # Nyt l<>ydetty partitio ei ole viel<65> kirjattuna summaryyn.
npops <- length(unique(PARTITION)) npops <- length(unique(PARTITION))
partitionSummary[worstIndex, 1] <- npops partitionSummary[worstIndex, 1] <- npops
partitionSummary[worstIndex, 2] <- logml partitionSummary[worstIndex, 2] <- logml
added <- 1 added <- 1
} else { } else {
added <- 0 added <- 0
} }
return(list(partitionSummary = partitionSummary, added = added)) return(list(partitionSummary = partitionSummary, added = added))
} }