max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Uncommented translated functions

Browse source
This commit is contained in:
Waldir Leoncio 2021-03-30 08:34:41 +02:00
parent ef540baf7e
commit d16de2ba7d
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
R/greedyMix.R
View file

@ -105,8 +105,17 @@ greedyMix <- function(
popnames <- "" popnames <- ""
} }
# [data, rowsFromInd, alleleCodes, noalle, adjprior, priorTerm] = handleData(data); # TODO: translate this function temp_handleData <- handleData(data)
# [Z,dist] = newGetDistances(data,rowsFromInd); # TODO: translate 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)) { if (is.null(savePreProcessed)) {
save_preproc <- questdlg( save_preproc <- questdlg(
quest = 'Do you wish to save pre-processed data?', quest = 'Do you wish to save pre-processed data?',