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