updated to more general sparse matrix class

stephenslab · Mar 11, 2024 · 9877da0 · 9877da0
1 parent f32f4bd
commit 9877da0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/argument_checking.R b/R/argument_checking.R
@@ -1,7 +1,7 @@
 # Return true if x is a compressed, sparse, column-oriented numeric
 # matrix.
 is.sparse.matrix <- function (x)
-  (inherits(x,"dgCMatrix") || inherits(x,"dgTMatrix")) && is.numeric(x@x)
+  inherits(x,"dsparseMatrix") && is.numeric(x@x)
 
 # Verify that x is matrix with finite, numeric entries.
 verify.matrix <- function (x, arg.name = deparse(substitute(x))) {