To pass R-CMD-check

YangLabHKUST · Sep 20, 2023 · c0c7166 · c0c7166
1 parent 02dfd48
commit c0c7166
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 8 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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)