From 87c8d871b86b8921777a4f4b64bb01d1795d9e6e Mon Sep 17 00:00:00 2001
From: robinpaul85 <robinpaul85@gmail.com>
Date: Wed, 26 Feb 2025 15:37:04 -0600
Subject: [PATCH] Put unused function in edgeR at the bottom

---
 server/utils/edge.R | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/server/utils/edge.R b/server/utils/edge.R
index 9763260ddb..a99cdfe9fd 100644
--- a/server/utils/edge.R
+++ b/server/utils/edge.R
@@ -30,13 +30,6 @@ filter_genes_by_global_variance <- function(read_counts, gene_id_symbols, num_va
    return(list(read_counts = read_counts, gene_id_symbols = gene_id_symbols))
 }
 
-# Will implement this later
-filter_genes_by_group_variance <- function(read_counts, gene_id_symbols, num_variable_genes, cases, controls) {
-    # Divide the read counts into two groups
-    case_read_counts <- read_counts[, cases]
-    control_read_counts <- read_counts[, controls]
-}
-
 # Read JSON input from stdin
 read_json_time <- system.time({
     con <- file("stdin", "r")
@@ -206,3 +199,11 @@ multiple_testing_correction_time <- system.time({
 
 # Output results
 toJSON(output)
+
+#-----------------------------------#
+# Will implement this later
+filter_genes_by_group_variance <- function(read_counts, gene_id_symbols, num_variable_genes, cases, controls) {
+    # Divide the read counts into two groups
+    case_read_counts <- read_counts[, cases]
+    control_read_counts <- read_counts[, controls]
+}