Auto-commit: apps/r/calculate_interaction_zscores5.R

workflow/apps/r/calculate_interaction_zscores5.R

@@ -566,6 +566,10 @@ main <- function() {
       write.csv(suppressors_lm_K,
         file = file.path(out_dir, "ZScores_Interaction_DeletionSuppressors_K_lm.csv"), row.names = FALSE)
 
+        interaction_scores_deletion <- interaction_scores_deletion %>%
+    arrange(desc(Z_lm_L)) %>%
+    arrange(desc(NG))
+
       # Generate plots for interaction scores
     })
   })