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

Rename variables arugment

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-16 15:48:12 -04:00
parent 3f2d629371
commit 28c9fda051
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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