Fixed greedyMix() for BAPS files (#24) 🍾
This commit is contained in:
parent
6aecf38231
commit
e873075ebf
1 changed files with 2 additions and 2 deletions
|
|
@ -257,8 +257,8 @@ writeMixtureInfo <- function(
|
|||
}
|
||||
|
||||
partitionSummary <- sortrows(partitionSummary, 2)
|
||||
partitionSummary <- partitionSummary[size(partitionSummary, 1):1, ]
|
||||
partitionSummary <- partitionSummary[matlab2r::find(partitionSummary[, 2] > -1e49), ]
|
||||
partitionSummary <- partitionSummary[size(partitionSummary, 1):1, , drop = FALSE]
|
||||
partitionSummary <- partitionSummary[matlab2r::find(partitionSummary[, 2] > -1e49), , drop = FALSE]
|
||||
if (size(partitionSummary, 1) > 10) {
|
||||
vikaPartitio <- 10
|
||||
} else {
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue