diff --git a/R/greedyMix.R b/R/greedyMix.R
index b9e56f3..6624a4d 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -948,20 +948,6 @@ greedyMix <- function(
 
 # 	%---------------------------------------------------------------
 
-
-# 	function dispLine;
-# 	disp('---------------------------------------------------');
-
-# 	%--------------------------------------------------------------
-
-# 	function num2 = omaRound(num)
-# 	% Py�rist�� luvun num 1 desimaalin tarkkuuteen
-# 	num = num*10;
-# 	num = round(num);
-# 	num2 = num/10;
-
-# 	%--------------------------------------------------------------------
-
 # 	function dist2 = laskeOsaDist(inds2, dist, ninds)
 # 	% Muodostaa dist vektorista osavektorin, joka sis�lt�� yksil�iden inds2
 # 	% v�liset et�isyydet. ninds=kaikkien yksil�iden lukum��r?
diff --git a/R/omaRound.R b/R/omaRound.R
new file mode 100644
index 0000000..2c67f1d
--- /dev/null
+++ b/R/omaRound.R
@@ -0,0 +1,7 @@
+omaRound <- function(num) {
+	# Py�rist�� luvun num 1 desimaalin tarkkuuteen
+	num <- num * 10
+	num <- round(num)
+	num2 <- num / 10
+	return(num2)
+}
\ No newline at end of file