Merge pull request #494 from bbayukari/master

[Bug Fix, R] abess fails with one feature
abess-team · Aug 11, 2023 · 5c62b52 · 5c62b52
2 parents 523020d + 7971590
commit 5c62b52
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R-package/R/abess.R b/R-package/R/abess.R
@@ -539,7 +539,7 @@ abess.default <- function(x,
       )
     } else if (family %in% c("multinomial", "ordinal")) {
       result[["beta"]] <- lapply(result[["beta"]], function(x) {
-        Matrix::Matrix(x[, -y_dim], sparse = TRUE, dimnames = list(vn, y_vn[-1]))
+        Matrix::Matrix(x[, -y_dim,drop=FALSE], sparse = TRUE, dimnames = list(vn, y_vn[-1]))
       })
     }
   } else {