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

going through functions and script for interactive plots

Browse source
This commit is contained in:
Tanushree Tunstall 2022-01-12 17:58:16 +00:00
parent 1f266c4cb8
commit 3f7bc908ec
7 changed files with 83 additions and 95 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/functions/plotting_globals.R
View file

@ -23,12 +23,16 @@ import_dirs <- function(drug_name, gene_name) {
dr_muts_col <<- paste0('dr_mutations_', drug_name)
other_muts_col <<- paste0('other_mutations_', drug_name)
resistance_col <<- "drtype"
gene_match <<- paste0(gene_name,"_p.")
}
# other globals
# Other globals
#=====================
# Resistance colname
#=====================
resistance_col <<- "drtype"
#===============================
# mcsm ligand distance cut off
#===============================
@ -39,7 +43,6 @@ LigDist_cutoff <<- 10
# Angstroms symbol
#==================
angstroms_symbol <<- "\u212b"
#cat(paste0("There are ", nrow(my_df_u_lig), " sites lying within 10", angstroms_symbol, " of the ligand\n"))
#===============
# Delta symbol