From 743c39afba7309758f50da47839d5ee49f92d57b Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Tue, 14 Jul 2020 15:59:16 +0200 Subject: [PATCH] Translated clearGlobalVars() --- R/clearGlobalVars.R | 7 +++++++ R/greedyMix.R | 11 ----------- 2 files changed, 7 insertions(+), 11 deletions(-) create mode 100644 R/clearGlobalVars.R diff --git a/R/clearGlobalVars.R b/R/clearGlobalVars.R new file mode 100644 index 0000000..1d77d9c --- /dev/null +++ b/R/clearGlobalVars.R @@ -0,0 +1,7 @@ +clearGlobalVars <- function() { + COUNTS <- SUMCOUNTS <- PARTITION <- POP_LOGML <- vector() # placeholders + COUNTS <<- vector() + SUMCOUNTS <<- vector() + PARTITION <<- vector() + POP_LOGML <<- vector() +} \ No newline at end of file diff --git a/R/greedyMix.R b/R/greedyMix.R index 0841ca5..0991649 100644 --- a/R/greedyMix.R +++ b/R/greedyMix.R @@ -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��n, ett?annettu logml on isompi kuin huonoin arvo