diff --git a/R/greedyMix.R b/R/greedyMix.R
index 201e045..39c99ac 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -1583,21 +1583,6 @@ greedyMix <- function(
 # 	apu = (apu(:,1)-1).*ninds - apu(:,1) ./ 2 .* (apu(:,1)-1) + (apu(:,2)-apu(:,1));
 # 	dist2 = dist(apu);
 
-# 	%--------------------------------------------------------
-
-# 	function ninds = testaaOnkoKunnollinenBapsData(data)
-# 	%Tarkastaa onko viimeisess?sarakkeessa kaikki
-# 	%luvut 1,2,...,n johonkin n:��n asti.
-# 	%Tarkastaa lis�ksi, ett?on v�hint��n 2 saraketta.
-# 	if size(data,1)<2
-# 		ninds = 0; return;
-# 	end
-# 	lastCol = data(:,end);
-# 	ninds = max(lastCol);
-# 	if ~isequal((1:ninds)',unique(lastCol))
-# 		ninds = 0; return;
-# 	end
-
 # 	%--------------------------------------------------------------------------
 
 # 	function [emptyPop, pops] = findEmptyPop(npops)
diff --git a/R/testaaOnkoKunnollinenBapsData.R b/R/testaaOnkoKunnollinenBapsData.R
new file mode 100644
index 0000000..8cdc5f3
--- /dev/null
+++ b/R/testaaOnkoKunnollinenBapsData.R
@@ -0,0 +1,21 @@
+#' @title TestBAPS data
+#' @description Test if loaded BAPS data is proper
+#' @param data dataset
+#' @return ninds
+#' @export
+testaaOnkoKunnollinenBapsData <- function(data) {
+	# Tarkastaa onko viimeisess?sarakkeessa kaikki
+	# luvut 1,2,...,n johonkin n:��n asti.
+	# Tarkastaa lis�ksi, ett?on v�hint��n 2 saraketta.
+	if (size[data, 1] < 2) {
+		ninds <- 0
+		return(ninds)
+	}
+	lastCol <- data[, ncol(data)]
+	ninds <- max(lastCol)
+	if (t(1:ninds) != unique(lastCol)) {
+		ninds <- 0
+		return(ninds)
+	}
+	return(ninds)
+}
\ No newline at end of file