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

ocbe-uio · Jul 2, 2024 · e873075 · e873075
1 parent 6aecf38
commit e873075
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/writeMixtureInfo.R b/R/writeMixtureInfo.R
@@ -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 {