Remove erroneous function calls

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -571,18 +571,6 @@ generate_rank_plot_configs <- function(df, rank_var, zscore_var, label_prefix, i
   return(configs)
 }
 
-
-# Generate all rank plot configurations for L and K (annotated and _notext)
-rank_plot_config <- c(
-  create_rank_plot_config(zscores_interactions_adjusted, "L_Rank", "Avg_Zscore_L", "L"),
-  create_rank_plot_config(zscores_interactions_adjusted, "K_Rank", "Avg_Zscore_K", "K")
-)
-
-# Generate and save rank plots
-generate_and_save_plots(output_dir = out_dir, file_name = "RankPlots",
-  plot_configs = rank_plot_config, grid_layout = list(ncol = 3, nrow = 2))
-
-
 generate_correlation_plot_configs <- function(df, lm_list, lm_summaries) {
   lapply(seq_along(lm_list), function(i) {
     r_squared <- round(lm_summaries[[i]]$r.squared, 3)
@@ -963,9 +951,7 @@ main <- function() {
       generate_and_save_plots(output_dir = out_dir, file_name = "RankPlots_lm",
         plot_configs = rank_lm_plot_config, grid_layout = list(ncol = 3, nrow = 2))
       
-      interaction_scores_filtered
-      
-
+      # interaction_scores_filtered
 
 
       # lm_summaries <- lapply(lm_list, summary)