minor correction

mingzehuang · Aug 31, 2022 · 8081228 · 8081228
1 parent 6f1bc11
commit 8081228
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 2 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -12,3 +12,5 @@
 ^LICENSE$
 ^CODE_OF_CONDUCT.md$
 ^CONTRIBUTING.md$
+^doc$
+^Meta$
diff --git a/.gitignore b/.gitignore
@@ -5,3 +5,5 @@
 .Rdata
 .httr-oauth
 .DS_Store
+/doc/
+/Meta/
diff --git a/supplement/unbias_check.R b/supplement/unbias_check.R
@@ -21,7 +21,7 @@ for (tp1 in c("con", "bin", "ter", "tru")) {
       R_org = latentcor(X, types = c(tp1, tp2), method = "original")$R
       R_approx = latentcor(X, types = c(tp1, tp2), method = "approx")$R
       R_conapprox = latentcor(X, types = c(ifelse(tp1 == "ter", "con", tp1), ifelse(tp2 == "ter", "con", tp2)), method = "original")$R
-      rhorep[rep] = rho; Rrep[rep, 1] = R_org[2, 1]; Rrep[rep, 2] = R_approx[2, 1]; Rrep[rep, 3] = cor(X)[2, 1]; Rrep[rep, 4] = R_conapprox[2, 1]
+      Rrep[rep, 1] = R_org[2, 1]; Rrep[rep, 2] = R_approx[2, 1]; Rrep[rep, 3] = cor(X)[2, 1]; Rrep[rep, 4] = R_conapprox[2, 1]
     }
     assign(paste("R", cp1, cp2, tp1, tp2, "org", sep = "_"), Rrep[ , 1])
     assign(paste("R", cp1, cp2, tp1, tp2, "approx", sep = "_"), Rrep[ , 2])

diff --git a/vignettes/latentcor.Rmd b/vignettes/latentcor.Rmd
@@ -205,7 +205,7 @@ for (s in 1:10){
   # Select a random subsample of size 80
   subsample = sample(1:100, 80)
   # Estimate latent correlation on subsample specifying the types
-  Rs = latentcor(simdata2$X[subsample, ], types = NULL)
+  Rs = latentcor(simdata2$X[subsample, ], types = get_types(simdata2$X))
 }
 proc.time() - start_time
 ```
-Original file line number
+Diff line change
@@ Expand Up / @@ -5,3 +5,5 @@ @@
     .Rdata
     .httr-oauth
     .DS_Store
+    /doc/
+    /Meta/