|
|
@@ -579,7 +579,7 @@ generate_interaction_plot_configs <- function(df, variables) {
|
|
|
AUC = c(-6500, 6500)
|
|
|
)
|
|
|
|
|
|
- df_filtered <- filter_data(df, variables, missing = TRUE, limits_map)
|
|
|
+ df_filtered <- filter_data(df, variables, missing = TRUE, limits_map = limits_map)
|
|
|
|
|
|
# Define annotation label functions
|
|
|
generate_annotation_labels <- function(df, var, annotation_name) {
|
|
|
@@ -1210,7 +1210,7 @@ main <- function() {
|
|
|
# Generate rank plots for L and K using standard ranks
|
|
|
rank_plot_configs <- generate_rank_plot_configs(
|
|
|
df = zscores_interactions,
|
|
|
- interaction_vars = interaction_vars,
|
|
|
+ variables = interaction_vars,
|
|
|
is_lm = FALSE,
|
|
|
adjust = TRUE
|
|
|
)
|
|
|
@@ -1223,7 +1223,7 @@ main <- function() {
|
|
|
# Generate rank plots for L and K using linear model (`lm`) ranks
|
|
|
rank_lm_plot_configs <- generate_rank_plot_configs(
|
|
|
df = zscores_interactions,
|
|
|
- interaction_vars = interaction_vars,
|
|
|
+ variables = interaction_vars,
|
|
|
is_lm = TRUE,
|
|
|
adjust = TRUE
|
|
|
)
|
|
|
@@ -1261,7 +1261,7 @@ main <- function() {
|
|
|
message("Generating filtered ranked plots")
|
|
|
rank_plot_filtered_configs <- generate_rank_plot_configs(
|
|
|
df = zscores_interactions_filtered,
|
|
|
- interaction_vars = interaction_vars,
|
|
|
+ variables = interaction_vars,
|
|
|
is_lm = FALSE,
|
|
|
adjust = FALSE
|
|
|
)
|
|
|
@@ -1272,7 +1272,7 @@ main <- function() {
|
|
|
message("Generating filtered ranked linear model plots")
|
|
|
rank_plot_lm_filtered_configs <- generate_rank_plot_configs(
|
|
|
df = zscores_interactions_filtered,
|
|
|
- interaction_vars = interaction_vars,
|
|
|
+ variables = interaction_vars,
|
|
|
is_lm = TRUE,
|
|
|
adjust = FALSE
|
|
|
)
|
