Update mfairInitialization.R

YangLabHKUST · Sep 19, 2023 · 4a5b74e · 4a5b74e
1 parent 657de02
commit 4a5b74e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/mfairInitialization.R b/R/mfairInitialization.R
@@ -30,7 +30,7 @@ createMFAIR <- function(Y, X,
  } # End
 
  # Check whether to transfer Y to the sparse matrix mode
- if (class(Y) == "dgCMatrix") { # Y is already in sparse mode
+ if ("dgCMatrix" %in% class(Y)) { # Y is already in sparse mode
  Y_sparse <- TRUE
  message("The main data matrix Y has been stored in the sparse mode!")
  } else if (Y_sparse == TRUE) { # Y is not in sparse mode, but we want it to be