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

added gene conditions to test_dm_om_data.R

Browse source
This commit is contained in:
Tanushree Tunstall 2022-02-01 10:54:10 +00:00
parent b2e035d9bc
commit e795c00831
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
scripts/functions/tests/test_dm_om_data.R
View file

@ -7,7 +7,11 @@ source("~/git/LSHTM_analysis/config/gid.R")
#source("~/git/LSHTM_analysis/config/rpob.R")
source("~/git/LSHTM_analysis/scripts/plotting/get_plotting_dfs.R")
########################################################################
geneL_na = c("gid", "rpob")
geneL_dy = c("gid")
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']]
@ -31,12 +35,17 @@ 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']]
}
if (tolower(gene)%in%geneL_dy){
wf_dynamut = all_dm_om_df[['wf_dynamut']]
lf_dynamut = all_dm_om_df[['lf_dynamut']]
@ -50,4 +59,5 @@ wf_sdm = all_dm_om_df[['wf_sdm']]
lf_sdm = all_dm_om_df[['lf_sdm']]
wf_mcsm = all_dm_om_df[['wf_mcsm']]
lf_mcsm = all_dm_om_df[['lf_mcsm']]
lf_mcsm = all_dm_om_df[['lf_mcsm']]
}

2
scripts/plotting/get_plotting_dfs.R
View file

@ -127,7 +127,7 @@ cat(s1)
####################################################################
#source("other_plots_data.R")
# converted to a function
# moved old one to redundant. Added suffix to filename i.e. _nf(non-function)
# moved old one to redundant.
source(paste0(plot_script_path, "dm_om_data.R"))
s2 = c("\nSuccessfully sourced other_plots_data.R")