don't reduce matrix to vector

seroanalytics · Jul 30, 2024 · f1fa3df · f1fa3df
1 parent 161da12
commit f1fa3df
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/scova.R b/R/scova.R
@@ -63,7 +63,7 @@ scova <- R6::R6Class(
       # Identify columns with no variance and remove them
       variance_per_column <- apply(mm, 2, var)
       relevant_columns <- which(variance_per_column != 0)
-      mm_reduced <- mm[, relevant_columns]
+      mm_reduced <- mm[, relevant_columns, drop = FALSE]
       private$design_matrix <- mm_reduced
     },
     build_covariate_lookup_table = function() {