not sure why I commented this out

MSKCC-Epi-Bio · Sep 15, 2023 · 8aef07c · 8aef07c
1 parent 4d75bf4
commit 8aef07c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/subset-by-frequency.R b/R/subset-by-frequency.R
@@ -51,7 +51,7 @@ subset_by_frequency <- function(gene_binary, t = .1, other_vars = NULL) {
 
   # Remove all NA columns ----------------------------------------------
   all_na_alt <- apply(alt_only,  2, function(x) {
-    # sum(is.na(x)) == nrow(alt_only)
+     sum(is.na(x)) == nrow(alt_only)
   })
 
   all_non_na_alt <- names(all_na_alt[!all_na_alt])