From e90d87776d1d18162ee2afa8df7e78be2c9583f0 Mon Sep 17 00:00:00 2001
From: WANG Zhiwei <48282751+statwangz@users.noreply.github.com>
Date: Thu, 12 Oct 2023 23:00:47 +0800
Subject: [PATCH] Correct the typos

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

diff --git a/README.Rmd b/README.Rmd
index cd9bca3..c096201 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -76,14 +76,14 @@ FX1 <- X1 / 2 - X2
 FX2 <- (X1^2 - X2^2 + 2 * X1 * X2) / 10
 FX <- cbind(FX1, FX2)
 
-# Generate loadings Z (= F(X) + noise)
+# Generate the factor matrix Z (= F(X) + noise)
 sig1_sq <- var(FX1) * (1 / PVE_Z - 1)
 Z1 <- FX1 + rnorm(n = N, mean = 0, sd = sqrt(sig1_sq))
 sig2_sq <- var(FX2) * (1 / PVE_Z - 1)
 Z2 <- FX2 + rnorm(n = N, mean = 0, sd = sqrt(sig2_sq))
 Z <- cbind(Z1, Z2)
 
-# Generate factors W
+# Generate the loading matrix W
 W <- matrix(rnorm(M * K_true), nrow = M, ncol = K_true)
 
 # Generate the main data matrix Y_obs (= Y + noise)
diff --git a/README.md b/README.md
index eb04265..dd448e1 100644
--- a/README.md
+++ b/README.md
@@ -74,14 +74,14 @@ FX1 <- X1 / 2 - X2
 FX2 <- (X1^2 - X2^2 + 2 * X1 * X2) / 10
 FX <- cbind(FX1, FX2)
 
-# Generate loadings Z (= F(X) + noise)
+# Generate the factor matrix Z (= F(X) + noise)
 sig1_sq <- var(FX1) * (1 / PVE_Z - 1)
 Z1 <- FX1 + rnorm(n = N, mean = 0, sd = sqrt(sig1_sq))
 sig2_sq <- var(FX2) * (1 / PVE_Z - 1)
 Z2 <- FX2 + rnorm(n = N, mean = 0, sd = sqrt(sig2_sq))
 Z <- cbind(Z1, Z2)
 
-# Generate factors W
+# Generate the loading matrix W
 W <- matrix(rnorm(M * K_true), nrow = M, ncol = K_true)
 
 # Generate the main data matrix Y_obs (= Y + noise)