From d2fb3bf90a01e83e945205dd71f7ff0dd4395119 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 24 Jun 2020 12:37:24 +0200
Subject: [PATCH] Unwrapped translated function

---
 R/greedyMix.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/greedyMix.R b/R/greedyMix.R
index bf13b4f..682c35c 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -147,7 +147,7 @@ greedyMix <- function(
 			# 	fprintf(1,'Data: %s\n',[pathname filename]);
 			# end
 
-			# kunnossa = testaaGenePopData([pathname filename]); # TODO: trans
+			kunnossa <- testaaGenePopData(pathname_filename)
 			# if (kunnossa == 0) stop("testaaGenePopData returned 0")
 			# [data,popnames]=lueGenePopData([pathname filename]); # TODO: trans