From 0fec3ab096b1db45b52966d958207f61208873a6 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Thu, 19 Nov 2020 13:31:20 +0100
Subject: [PATCH] Cleanup of commented-out code

---
 R/greedyMix.R | 17 -----------------
 1 file changed, 17 deletions(-)

diff --git a/R/greedyMix.R b/R/greedyMix.R
index 344f966..132299e 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -381,20 +381,3 @@ greedyMix <- function(
 		if (file.exists('baps4_output.baps')) file.remove('baps4_output.baps')
 	}
 }
-
-# 	%--------------------------------------------------------------------------
-
-
-# 	function [suurin, i2] = arvoSeuraavaTila(muutokset, logml)
-# 	% Suorittaa yksil�n seuraavan tilan arvonnan
-
-# 	y = logml + muutokset;  % siirron j�lkeiset logml:t
-# 	y = y - max(y);
-# 	y = exp(y);
-# 	summa = sum(y);
-# 	y = y/summa;
-# 	y = cumsum(y);
-
-# 	i2 = rand_disc(y);   % uusi kori
-# 	suurin = muutokset(i2);
-