From 56d8a5c081625ece3a118d0d1d0f98054d10c280 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Tue, 28 Jul 2020 15:51:28 +0200
Subject: [PATCH] Unraveled internal functions of greedyMix

---
 R/greedyMix.R | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/R/greedyMix.R b/R/greedyMix.R
index edac561..a9573cf 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -149,13 +149,26 @@ greedyMix <- function(
 
 			kunnossa <- testaaGenePopData(filename_pathname)
 			if (kunnossa == 0) stop("testaaGenePopData returned 0")
-			# [data,popnames]=lueGenePopData([pathname filename]); # TODO: trans
+			data_popnames <- lueGenePopData(filename_pathname)
+			data          <- data_popnames$data
+			popnames      <- data_popnames$popnames
 
 # 			h0 = findobj('Tag','filename1_text');
 # 			set(h0,'String',filename); clear h0;
 
-# 			[data, rowsFromInd, alleleCodes, noalle, adjprior, priorTerm] = handleData(data); # TODO:trans
-# 			[Z,dist] = newGetDistances(data,rowsFromInd); # TODO: trans
+			browser()#TEMP
+			list_dranap <- handleData(data) # FIXME: debug
+			data        <- list_dranap$newData
+			rowsFromInd <- list_dranap$rowsFromInd
+			alleleCodes <- list_dranap$alleleCodes
+			noalle      <- list_dranap$noalle
+			adjprior    <- list_dranap$adjprior
+			priorTerm   <- list_dranap$prioterm
+
+			list_Zd <- newGetDistances(data,rowsFromInd) # FIXME: debug
+			Z       <- lizt_Zd$Z
+			dist    <- lizt_Zd$dist
+
 			if (is.null(savePreProcessed)) {
 				save_preproc <- questdlg(
 					quest = 'Do you wish to save pre-processed data?',