From eebe7a76352af3eeab00ec87e5eb630ed5d4ae45 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 24 Jun 2020 11:49:16 +0200
Subject: [PATCH] Enabled testaaOnkoKunnollinenBapsData

---
 R/greedyMix.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/greedyMix.R b/R/greedyMix.R
index fa88ff1..9323899 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -66,8 +66,8 @@ greedyMix <- function(
 			# end
 
 			data <- read.delim(pathname_filename) # ASK: what is the delimiter?
-			# ninds <- testaaOnkoKunnollinenBapsData(data)  #TESTAUS # TODO: trans
-			# if (ninds == 0) stop('Incorrect Data-file')
+			ninds <- testaaOnkoKunnollinenBapsData(data)  # testing
+			if (ninds == 0) stop('Incorrect Data-file')
 
 			# ASK: remove?
 			# h0 = findobj('Tag','filename1_text');