From 4f9c2d3274a0149ce9d07b06ecda61b41a19f8e4 Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Tue, 17 Sep 2024 21:54:31 -0400 Subject: [PATCH] Fix column references --- .../apps/r/calculate_interaction_zscores.R | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index 2e193437..588534c0 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R @@ -994,14 +994,14 @@ filter_data <- function(df, variables, nf = FALSE, missing = FALSE, adjust = FAL if (rank) { if (verbose) message("Calculating ranks for variable(s): ", paste(variables, collapse = ", ")) - for (col in avg_zscore_cols) { - rank_col <- paste0("Rank_", col) - df[[rank_col]] <- rank(df[[col]], na.last = "keep") - } + for (variable in variables) { + avg_zscore_col <- paste0("Avg_Zscore_", variable) + rank_col <- paste0("Rank_", variable) + df[[rank_col]] <- rank(df[[avg_zscore_col]], na.last = "keep") - for (col in z_lm_cols) { - rank_lm_col <- paste0("Rank_lm_", col) - df[[rank_lm_col]] <- rank(df[[col]], na.last = "keep") + z_lm_col <- paste0("Z_lm_", variable) + rank_lm_col <- paste0("Rank_lm_", variable) + df[[rank_lm_col]] <- rank(df[[z_lm_col]], na.last = "keep") } }