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 <- 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 {
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue