Revert to original column naming for Sum_Z_score

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -322,16 +322,16 @@ calculate_interaction_scores <- function(df, max_conc, variables = c("L", "K", "
       Z_Shift_AUC = first(Z_Shift_AUC),
 
       # Sum Z-scores
-      Sum_Zscore_L = sum(Zscore_L, na.rm = TRUE),
-      Sum_Zscore_K = sum(Zscore_K, na.rm = TRUE),
-      Sum_Zscore_r = sum(Zscore_r, na.rm = TRUE),
-      Sum_Zscore_AUC = sum(Zscore_AUC, na.rm = TRUE),
+      Sum_Z_score_L = sum(Zscore_L),
+      Sum_Z_score_K = sum(Zscore_K),
+      Sum_Z_score_r = sum(Zscore_r),
+      Sum_Z_score_AUC = sum(Zscore_AUC),
       
       # Calculate Average Z-scores
-      Avg_Zscore_L = Sum_Zscore_L / num_non_removed_concs,
-      Avg_Zscore_K = Sum_Zscore_K / num_non_removed_concs,
-      Avg_Zscore_r = Sum_Zscore_r / (total_conc_num - 1),
-      Avg_Zscore_AUC = Sum_Zscore_AUC / (total_conc_num - 1)
+      Avg_Zscore_L = Sum_Z_score_L / num_non_removed_concs,
+      Avg_Zscore_K = Sum_Z_score_K / num_non_removed_concs,
+      Avg_Zscore_r = Sum_Z_score_r / (total_conc_num - 1),
+      Avg_Zscore_AUC = Sum_Z_score_AUC / (total_conc_num - 1)
     ) %>%
     arrange(desc(Z_lm_L), desc(NG)) %>%
     ungroup()

qhtcp-workflow/qhtcp-workflow

@@ -1431,6 +1431,7 @@ wrapper calculate_interaction_zscores
 #
 # * More variables can be read in from the config file to allow more configuration
 # * Add gene names, other threshold values, etc.
+# * Dataframe columns and output file columns should be standardized in calculate_interactions()
 #
 # INPUT
 #