Removed broken function

2020-01-14 17:41:10 +01:00 · 2020-01-14 17:41:10 +01:00 · 50e1791cee
commit 50e1791cee
parent 26e510860c
1 changed files with 0 additions and 14 deletions
--- a/R/etsiParas.R
+++ b/R/etsiParas.R
@ -1,14 +0,0 @@
-etsiParas <- function = (osuus, osuusTaulu, omaFreqs, logml) {
-    ready <- 0;
-    while (ready != 1) {
-        muutokset <- laskeMuutokset4(osuus, osuusTaulu, omaFreqs, logml)
-        [maxMuutos, indeksi] = max(muutokset[1:end]) # TODO: how does this work on Matlab?
-        if (maxMuutos > 0) {
-            osuusTaulu <- suoritaMuutos(osuusTaulu, osuus, indeksi)
-            logml <- logml + maxMuutos
-        } else {
-            ready <- 1
-        }
-    }
-    return (c(osuusTaulu, logml))
-}