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

tested dm_om_data function with alr gene to make sure valid dfs are being returned

Browse source
This commit is contained in:
Tanushree Tunstall 2022-01-31 17:50:12 +00:00
parent 5779b3fe87
commit ef1fb96b88
2 changed files with 52 additions and 413 deletions
Download patch file Download diff file Expand all files Collapse all files

29
scripts/plotting/get_plotting_dfs.R
View file

@ -122,38 +122,31 @@ s1 = c("\nSuccessfully sourced logo_data_msa.R")
cat(s1)
####################################################################
# Data for DM OM Plots: Long format dfs
# Data for DM OM Plots: WF and LF dfs
# My function: dm_om_wf_lf_data()
####################################################################
#source("other_plots_data.R")
# FIXME
#source(paste0(plot_script_path, "dm_om_data.R"))
# converted to a function
# moved old one to redundant. Added suffix to filename i.e. _nf(non-function)
source(paste0(plot_script_path, "dm_om_data.R"))
#s2 = c("\nSuccessfully sourced other_plots_data.R")
#cat(s2)
s2 = c("\nSuccessfully sourced other_plots_data.R")
cat(s2)
####################################################################
# Data for Lineage barplots: WF and LF dfs
####################################################################
#source(paste0(plot_script_path, "lineage_data.R"))
source(paste0(plot_script_path, "lineage_data.R"))
#s3 = c("\nSuccessfully sourced lineage_data.R")
#cat(s3)
s3 = c("\nSuccessfully sourced lineage_data.R")
cat(s3)
####################################################################
# Data for corr plots:
# My function: corr_data_extract()
####################################################################
# make sure the above script works because merged_df2_combined is needed
#source(paste0(plot_script_path, "corr_data.R"))
#s4 = c("\nSuccessfully sourced corr_data.R")
#cat(s4)
# Moved "logo_data.R" to redundant/
#-----------------------------------------
# Replaced above with my function
# corr_data_extract()
corr_df_m3_f = corr_data_extract(merged_df3, extract_scaled_cols = F)
head(corr_df_m3_f)