Style the code

Author: statwangz

R/mfairInitialization.R

@@ -68,7 +68,7 @@ createMFAIR <- function(Y, X,
     if (Y_missing) { # Y is partially observed
       warning("If there are a large number of missing entries, we recommend setting Y_sparse = TRUE!")
     }
-    if(inherits(Y, "sparseMatrix")){
+    if (inherits(Y, "sparseMatrix")) {
       Y <- as.matrix(Y)
       message("The main data matrix Y has been transferred to the normal matrix mode!")
     }
@@ -89,8 +89,8 @@ createMFAIR <- function(Y, X,
   }
 
   # if (Y_missing) {
-    # a_sq <- matrix(nrow = N, ncol = 0)
-    # b_sq <- matrix(nrow = M, ncol = 0)
+  #   a_sq <- matrix(nrow = N, ncol = 0)
+  #   b_sq <- matrix(nrow = M, ncol = 0)
   # } else {
   #   a_sq <- matrix(nrow = 1, ncol = 0)
   #   b_sq <- matrix(nrow = 1, ncol = 0)

R/mfairPredict.R

@@ -25,7 +25,7 @@ setMethod(
     Y_hat <- tcrossprod(
       do.call(cbind, object@Z[which_factors]),
       do.call(cbind, object@W[which_factors])
-      )
+    )
     if (add_mean) {
       Y_hat <- Y_hat + object@Y_mean
     }

vignettes/ml100k.Rmd

@@ -46,7 +46,8 @@ mfairObject <- createMFAIR(Y, X, Y_sparse = TRUE, K_max = 3)
 
 # Fit the MFAI model
 mfairObject <- fitGreedy(
-  mfairObject, save_init = TRUE, sf_para = list(verbose_loop =FALSE)
+  mfairObject,
+  save_init = TRUE, sf_para = list(verbose_loop = FALSE)
 )
 ```
 
@@ -125,7 +126,8 @@ mfairObject_pmt@initialization <- mfairObject@initialization
 
 # Fit the MFAI model
 mfairObject_pmt <- fitGreedy(
-  mfairObject_pmt, sf_para = list(verbose_loop = FALSE)
+  mfairObject_pmt,
+  sf_para = list(verbose_loop = FALSE)
 )
 ```
 
@@ -184,7 +186,8 @@ mfairObject_both@initialization <- mfairObject@initialization
 
 # Fit the MFAI model
 mfairObject_both <- fitGreedy(
-  mfairObject_both, sf_para = list(verbose_loop = FALSE)
+  mfairObject_both,
+  sf_para = list(verbose_loop = FALSE)
 )
 ```