Fixed greedyMix() for BAPS files (#24) 🍾

This commit is contained in:
Waldir Leoncio 2024-07-02 16:39:38 +02:00
parent 6aecf38231
commit e873075ebf

View file

@ -257,8 +257,8 @@ writeMixtureInfo <- function(
} }
partitionSummary <- sortrows(partitionSummary, 2) partitionSummary <- sortrows(partitionSummary, 2)
partitionSummary <- partitionSummary[size(partitionSummary, 1):1, ] partitionSummary <- partitionSummary[size(partitionSummary, 1):1, , drop = FALSE]
partitionSummary <- partitionSummary[matlab2r::find(partitionSummary[, 2] > -1e49), ] partitionSummary <- partitionSummary[matlab2r::find(partitionSummary[, 2] > -1e49), , drop = FALSE]
if (size(partitionSummary, 1) > 10) { if (size(partitionSummary, 1) > 10) {
vikaPartitio <- 10 vikaPartitio <- 10
} else { } else {