fix(PAB): now detects correctly the DE tags

hdescobarh · May 29, 2024 · fef4459 · fef4459
1 parent d0a886b
commit fef4459
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/PAB_Lab13_diff_expr/Code/DE_customized_functions.r b/PAB_Lab13_diff_expr/Code/DE_customized_functions.r
@@ -101,7 +101,7 @@ test_models <- function(
     # Make a mean-difference plot with smearing of points with very low counts
     # Highlight top FDR < 0.05
     fdr_threshold <- 0.05
-    top_selected_ids <- top$table[top$table$FDR < fdr_threshold, 1]
+    top_selected_ids <- rownames(top$table)[top$table$FDR < fdr_threshold]
 
     smear_file_name <- sprintf(
       "%s/smear_MDplot_%s.pdf",