From 02dfd487972d831e1a14c0d72512c4742b72259f Mon Sep 17 00:00:00 2001
From: WANG Zhiwei <48282751+statwangz@users.noreply.github.com>
Date: Wed, 20 Sep 2023 03:29:57 +0800
Subject: [PATCH] Update README

---
 README.Rmd | 4 ++--
 README.md  | 9 ++++++---
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/README.Rmd b/README.Rmd
index 94e4753..cd9bca3 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -99,7 +99,7 @@ Y_obs <- Y + matrix(
 )
 
 # Create MFAIR object
-mfairObject <- createMFAIR(Y_obs, X, K_max = K_true)
+mfairObject <- createMFAIR(Y_obs, as.data.frame(X), K_max = K_true)
 
 # Fit the MFAI model
 mfairObject <- fitGreedy(mfairObject, sf_para = list(verbose_loop = FALSE))
@@ -129,7 +129,7 @@ Y_train[-train_set] <- NA
 Y_test[train_set] <- NA
 
 # Create MFAIR object
-mfairObject <- createMFAIR(Y_train, X, K_max = K_true)
+mfairObject <- createMFAIR(Y_train, as.data.frame(X), K_max = K_true)
 
 # Fit the MFAI model
 mfairObject <- fitGreedy(mfairObject, sf_para = list(verbose_loop = FALSE))
diff --git a/README.md b/README.md
index dcd4d88..eb04265 100644
--- a/README.md
+++ b/README.md
@@ -53,7 +53,6 @@ more minutes.
 ``` r
 set.seed(20230306)
 library(mfair)
-#> Loading required package: rpart
 
 # Simulate data
 # Set the data dimension and rank
@@ -98,7 +97,9 @@ Y_obs <- Y + matrix(
 )
 
 # Create MFAIR object
-mfairObject <- createMFAIR(Y_obs, X, K_max = K_true)
+mfairObject <- createMFAIR(Y_obs, as.data.frame(X), K_max = K_true)
+#> The main data matrix Y is completely observed!
+#> The main data matrix Y has been centered with mean = 0.147726471347656!
 
 # Fit the MFAI model
 mfairObject <- fitGreedy(mfairObject, sf_para = list(verbose_loop = FALSE))
@@ -141,7 +142,9 @@ Y_train[-train_set] <- NA
 Y_test[train_set] <- NA
 
 # Create MFAIR object
-mfairObject <- createMFAIR(Y_train, X, K_max = K_true)
+mfairObject <- createMFAIR(Y_train, as.data.frame(X), K_max = K_true)
+#> The main data matrix Y is partially observed!
+#> The main data matrix Y has been centered with mean = 0.227350351267622!
 
 # Fit the MFAI model
 mfairObject <- fitGreedy(mfairObject, sf_para = list(verbose_loop = FALSE))