|
|
@@ -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)
|
