Keep constant variables instead of removing them

rgcca-factory · Nov 29, 2024 · a5b5e21 · a5b5e21
1 parent cb126f0
commit a5b5e21
Show file tree

Hide file tree

Showing 13 changed files with 73 additions and 860 deletions.
diff --git a/R/generate_resampling.R b/R/generate_resampling.R
diff --git a/R/remove_null_sd.R b/R/remove_null_sd.R
diff --git a/R/rgcca.R b/R/rgcca.R
@@ -469,7 +469,7 @@ rgcca <- function(blocks, connection = NULL, tau = 1, ncomp = 1,
   rgcca_args$quiet <- quiet
   rgcca_args$verbose <- verbose
 
-  blocks <- remove_null_sd(rgcca_args$blocks)$list_m
+  blocks <- rgcca_args$blocks
 
   if (opt$disjunction) {
     blocks[[rgcca_args$response]] <- as_disjunctive(