From c0c7166bf9d5d7bc45b1f2f627bb2e77965e95a2 Mon Sep 17 00:00:00 2001
From: WANG Zhiwei <48282751+statwangz@users.noreply.github.com>
Date: Wed, 20 Sep 2023 12:21:00 +0800
Subject: [PATCH] To pass R-CMD-check

---
 R/mfairInitialization.R | 3 +--
 R/mfairSingleFactor.R   | 3 +--
 R/mfairUtils.R          | 3 +--
 data-raw/ml100k.R       | 3 +--
 4 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/R/mfairInitialization.R b/R/mfairInitialization.R
index e1ff7a7..8ade85c 100644
--- a/R/mfairInitialization.R
+++ b/R/mfairInitialization.R
@@ -41,8 +41,7 @@ createMFAIR <- function(Y, X,
       x = Y[obs_tf],
       dims = c(N, M),
       symmetric = FALSE, triangular = FALSE,
-      index1 = TRUE,
-      repr = "C"
+      index1 = TRUE
     )
     message("The main data matrix Y has been transferred to the sparse mode!")
   } # Otherwise, Y is not in sparse mode and we don't want it to be
diff --git a/R/mfairSingleFactor.R b/R/mfairSingleFactor.R
index e7b7dc1..4f2f62f 100644
--- a/R/mfairSingleFactor.R
+++ b/R/mfairSingleFactor.R
@@ -35,8 +35,7 @@ fitSFSparse <- function(Y, X, init,
     x = init@tau,
     dims = c(N, M),
     symmetric = FALSE, triangular = FALSE,
-    index1 = TRUE,
-    repr = "C"
+    index1 = TRUE
   )
 
   ELBO_old <- getELBO(Y, init, obs_indices)
diff --git a/R/mfairUtils.R b/R/mfairUtils.R
index 8c7ec1b..ea6978c 100644
--- a/R/mfairUtils.R
+++ b/R/mfairUtils.R
@@ -16,7 +16,6 @@ projSparse <- function(Y, obs_indices) {
     x = Y[obs_indices],
     dims = c(N, M),
     symmetric = FALSE, triangular = FALSE,
-    index1 = TRUE,
-    repr = "C"
+    index1 = TRUE
   )
 }
diff --git a/data-raw/ml100k.R b/data-raw/ml100k.R
index 1d9caa4..64d4322 100644
--- a/data-raw/ml100k.R
+++ b/data-raw/ml100k.R
@@ -19,8 +19,7 @@ u_data_matrix <- Matrix::sparseMatrix(
   x = u_data[, 3],
   dims = c(N, M),
   symmetric = FALSE, triangular = FALSE,
-  index1 = TRUE,
-  repr = "C"
+  index1 = TRUE
 )
 # head(u_data_matrix)