diff --git a/R/etsiParas.R b/R/etsiParas.R
deleted file mode 100644
index 22eda5e..0000000
--- a/R/etsiParas.R
+++ /dev/null
@@ -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))
-}
\ No newline at end of file