Mistake on obj name.

dereckmezquita · Jul 14, 2024 · d73b514 · d73b514
1 parent 0ebc4a6
commit d73b514
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/Pca.R b/R/Pca.R
@@ -100,12 +100,12 @@ Pca <- R6::R6Class(
         ) {
             private$check_data(data)
 
-            if (!is.null(comparisons)) {
-                private$check_comparisons(comparisons)
+            if (!is.null(comparison)) {
+                private$check_comparison(comparison)
             }
 
             self$data <- private$prepare_data(data)
-            self$comparisons <- comparisons
+            self$comparison <- comparison
         },
         prcomp = function(comparison = NULL, ...) {
             data <- data.table::copy(self$data)