Fix column naming derps

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_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),
+      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_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)
+      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()