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

moved dm_om_data.R the script version to redundant and the function version has been trimmed to for readability

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-05 14:44:36 +01:00
parent cc27ffe82f
commit 164113f665
3 changed files with 48 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

39
scripts/plotting/get_plotting_dfs.R
View file

@ -112,7 +112,44 @@ cat(s1)
#source("other_plots_data.R")
####################################################################
#source(paste0(plot_script_path, "dm_om_data.R"))
#source(paste0(plot_script_path, "dm_om_data.R")) # calling the function directly instead
geneL_normal = c("pnca")
geneL_na = c("gid", "rpob")
geneL_ppi2 = c("alr", "embb", "katg", "rpob")
all_dm_om_df = dm_om_wf_lf_data(df = merged_df3, gene_name = gene)
wf_duet = all_dm_om_df[['wf_duet']]
lf_duet = all_dm_om_df[['lf_duet']]
wf_mcsm_lig = all_dm_om_df[['wf_mcsm_lig']]
lf_mcsm_lig = all_dm_om_df[['lf_mcsm_lig']]
wf_foldx = all_dm_om_df[['wf_foldx']]
lf_foldx = all_dm_om_df[['lf_foldx']]
wf_deepddg = all_dm_om_df[['wf_deepddg']]
lf_deepddg = all_dm_om_df[['lf_deepddg']]
wf_dynamut2 = all_dm_om_df[['wf_dynamut2']]
lf_dynamut2 = all_dm_om_df[['lf_dynamut2']]
wf_consurf = all_dm_om_df[['wf_consurf']]
lf_consurf = all_dm_om_df[['lf_consurf']]
wf_snap2 = all_dm_om_df[['wf_snap2']]
lf_snap2 = all_dm_om_df[['lf_snap2']]
if (tolower(gene)%in%geneL_na){
wf_mcsm_na = all_dm_om_df[['wf_mcsm_na']]
lf_mcsm_na = all_dm_om_df[['lf_mcsm_na']]
}
if (tolower(gene)%in%geneL_ppi2){
wf_mcsm_ppi2 = all_dm_om_df[['wf_mcsm_ppi2']]
lf_mcsm_ppi2 = all_dm_om_df[['lf_mcsm_ppi2']]
}
s2 = c("\nSuccessfully sourced other_plots_data.R")
cat(s2)