tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

various

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-09 19:56:17 +01:00
parent 415d05ab6e
commit af03fc6fd6
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/functions/dm_om_data.R
View file

@ -16,10 +16,8 @@ dm_om_wf_lf_data <- function(df
#, LigDist_colname # from globals used #, LigDist_colname # from globals used
#, ppi2Dist_colname #from globals used #, ppi2Dist_colname #from globals used
#, naDist_colname #from globals used #, naDist_colname #from globals used
, dr_muts = dr_muts_col # from globals
, other_muts = other_muts_col # from globals
, snp_colname = "mutationinformation" , snp_colname = "mutationinformation"
, aa_pos_colname = "position" # to sort df by , aa_pos_colname = "position"
, mut_colname = "mutation" , mut_colname = "mutation"
, mut_info_colname = "dst_mode" , mut_info_colname = "dst_mode"
, mut_info_label_colname = "mutation_info_labels" , mut_info_label_colname = "mutation_info_labels"

1
scripts/functions/plotting_globals.R
View file

@ -52,6 +52,7 @@ angstroms_symbol <<- "\u212b"
# Delta symbol # Delta symbol
#=============== #===============
delta_symbol <<- "\u0394"; delta_symbol delta_symbol <<- "\u0394"; delta_symbol
stability_suffix <- paste0(delta_symbol, delta_symbol, "G")
#========== #==========
# Colours # Colours

11
scripts/plotting/get_plotting_dfs.R
View file

@ -13,7 +13,7 @@ source("~/git/LSHTM_analysis/scripts/Header_TT.R")
# set drug and gene name # set drug and gene name
#========================================== #==========================================
# variables for lig: # variables for affinity:
# comes from functions/plotting_globals.R # comes from functions/plotting_globals.R
#========================================== #==========================================
@ -21,6 +21,15 @@ cat("\nGlobal variables for Ligand:"
, "\nligand distance colname:", LigDist_colname , "\nligand distance colname:", LigDist_colname
, "\nligand distance cut off:", LigDist_cutoff) , "\nligand distance cut off:", LigDist_cutoff)
cat("\nGlobal variables for mCSM-PPI2 affinity:"
, "\nPPI2 distance colname:", ppi2Dist_colname
, "\nPPI2 cut off:", Dist_cutoff)
cat("\nGlobal variables for mCSM-NA affinity:"
, "\nligand distance colname:", naDist_colname
, "\nligand distance cut off:", Dist_cutoff)
#=========== #===========
# input # input
#=========== #===========