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