From d16de2ba7d5eb17fe4ac8fc3fc4b159d045646f0 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Tue, 30 Mar 2021 08:34:41 +0200 Subject: [PATCH] Uncommented translated functions --- R/greedyMix.R | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/R/greedyMix.R b/R/greedyMix.R index e9dc2bb..f10f3b8 100644 --- a/R/greedyMix.R +++ b/R/greedyMix.R @@ -105,8 +105,17 @@ greedyMix <- function( popnames <- "" } - # [data, rowsFromInd, alleleCodes, noalle, adjprior, priorTerm] = handleData(data); # TODO: translate this function - # [Z,dist] = newGetDistances(data,rowsFromInd); # TODO: translate + temp_handleData <- handleData(data) + data <- temp_handleData$newData + rowsFromInd <- temp_handleData$rowsFromInd + alleleCodes <- temp_handleData$alleleCodes + noalle <- temp_handleData$noalle + adjprior <- temp_handleData$adjprior + priorTerm <- temp_handleData$priorTerm + Z_dist <- newGetDistances(data,rowsFromInd) + Z <- Z_dist$Z + dist <- Z_dist$dist + rm(temp_handleData, Z_dist) if (is.null(savePreProcessed)) { save_preproc <- questdlg( quest = 'Do you wish to save pre-processed data?',