Added function

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:<3A><>n asti.
-# 	%Tarkastaa lis<69>ksi, ett?on v<>hint<6E><74>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)

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:<3A><>n asti.
+	# Tarkastaa lis<69>ksi, ett?on v<>hint<6E><74>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)
+}