Translated clearGlobalVars()

This commit is contained in:
Waldir Leoncio 2020-07-14 15:59:16 +02:00
parent 390af9c65a
commit 743c39afba
2 changed files with 7 additions and 11 deletions

7
R/clearGlobalVars.R Normal file
View file

@ -0,0 +1,7 @@
clearGlobalVars <- function() {
COUNTS <- SUMCOUNTS <- PARTITION <- POP_LOGML <- vector() # placeholders
COUNTS <<- vector()
SUMCOUNTS <<- vector()
PARTITION <<- vector()
POP_LOGML <<- vector()
}

View file

@ -358,17 +358,6 @@ greedyMix <- function(
}
# %-------------------------------------------------------------------------------------
# %-------------------------------------------------------------------------------------
# function clearGlobalVars
# global COUNTS; COUNTS = [];
# global SUMCOUNTS; SUMCOUNTS = [];
# global PARTITION; PARTITION = [];
# global POP_LOGML; POP_LOGML = [];
# %--------------------------------------------------------------------------
# function [partitionSummary, added] = addToSummary(logml, partitionSummary, worstIndex)
# % Tiedet<65><74>n, ett?annettu logml on isompi kuin huonoin arvo