From 9ae08be8b5ce910c5e68a86953ca95d2b1d2a65c Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Tue, 10 Sep 2024 15:44:14 -0400 Subject: [PATCH] Remove erroneous function calls --- .../apps/r/calculate_interaction_zscores.R | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index 30cb93b2..d8885230 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/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)