From bf1ef2ede9ebe1304f1d1a6847d61cda81c8c473 Mon Sep 17 00:00:00 2001
From: WANG Zhiwei <48282751+statwangz@users.noreply.github.com>
Date: Sun, 29 Oct 2023 01:00:31 +0800
Subject: [PATCH] Standardize statements that report the results of running the
 software

---
 R/mfairBackfitting.R | 2 +-
 R/mfairGreedy.R      | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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]]
     }