bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove erroneous function calls

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-10 15:44:14 -04:00
parent ba8e4ced3e
commit 9ae08be8b5
1 changed files with 1 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
qhtcp-workflow/apps/r/calculate_interaction_zscores.R
View File

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