Merge pull request #132 from jrafailov/master

matrix coercion to vector when nrow = 2 bug fix
mskilab-org · May 6, 2024 · b552cdb · b552cdb
2 parents 89e142d + 8527bd0
commit b552cdb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -142,7 +142,7 @@ convex.basis = function(A,
                     H = combs %*% K_last;
 
                                         # remove duplicated rows in H (with respect to sparsity)
-                    H = H[!duplicated(as.matrix(H)>ZERO), ];
+                    H = H[!duplicated(as.matrix(H)>ZERO), , drop = F];
 
                                         # remove rows in H that have subsets in H (with respect to sparsity) ..
                     if ((as.numeric(nrow(H))*as.numeric(nrow(H)))>maxchunks){