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)