allow for high-dimensional cases - cancor uses variables in order

corybrunson · Aug 19, 2024 · 7bff122 · 7bff122
1 parent cb94983
commit 7bff122
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/methods-stats-cancor.r b/R/methods-stats-cancor.r
@@ -94,7 +94,7 @@ recover_aug_rows.cancor_ord <- function(x) {
   } else {
     tibble(name = name)
   }
-  res$center <- unname(x$xcenter)
+  res$center <- unname(x$xcenter[seq(nrow(x$xcoef))])
   # case scores and structure correlations as supplementary points
   res_sup <- NULL
   if (! is.null(x$xscores)) {
@@ -129,7 +129,7 @@ recover_aug_cols.cancor_ord <- function(x) {
   } else {
     tibble(name = name)
   }
-  res$center <- unname(x$ycenter)
+  res$center <- unname(x$ycenter[seq(nrow(x$ycoef))])
   # case scores and structure correlations as supplementary points
   res_sup <- NULL
   if (! is.null(x$xscores)) {