diff --git a/R/mfairBackfitting.R b/R/mfairBackfitting.R index 63b3b32..e50b6da 100644 --- a/R/mfairBackfitting.R +++ b/R/mfairBackfitting.R @@ -175,7 +175,7 @@ fitBack <- function(object, if (verbose_bf_inner) { cat( - "Backfitting for ", k, "-th factor finished!\n", + "Backfitting for Factor ", k, " finished!\n", sep = "" ) } diff --git a/R/mfairGreedy.R b/R/mfairGreedy.R index 20c8a1e..94b0be1 100644 --- a/R/mfairGreedy.R +++ b/R/mfairGreedy.R @@ -96,12 +96,12 @@ fitGreedy <- function(object, K_max = NULL, # Initialize if (need_init[k]) { if (verbose_greedy) { - message("Initialize the parameters of factor ", k, "......") + message("Initialize the parameters of Factor ", k, "......") } init <- initSF(R, object@Y_missing, object@Y_sparse, object@n_obs) } else { if (verbose_greedy) { - message("Use the user-specific initialization for factor ", k, "......") + message("Use the user-specific initialization for Factor ", k, "......") } init <- object@initialization[[k]] }