Revert to original column naming for Sum_Z_score

This commit is contained in:
2024-09-24 20:10:09 -04:00
parent 3c90c22a43
commit fea56ac7a9
2 changed files with 9 additions and 8 deletions

View File

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

View File

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