From 6cb9998c4c19df205b4eb001168002c8ac746ab8 Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Fri, 5 Aug 2022 14:45:33 +0100
Subject: [PATCH] added the script to redundant

---
 scripts/plotting/redundant/dm_om_data.R | 62 +++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 scripts/plotting/redundant/dm_om_data.R

diff --git a/scripts/plotting/redundant/dm_om_data.R b/scripts/plotting/redundant/dm_om_data.R
new file mode 100644
index 0000000..40d4d40
--- /dev/null
+++ b/scripts/plotting/redundant/dm_om_data.R
@@ -0,0 +1,62 @@
+#!/usr/bin/env Rscript  
+#########################################################
+# TASK: Script to format data for dm om plots: 
+# generating WF LF data
+# sourced by get_plotting_dfs.R
+# calls my function: dm_om_wf_lf_data()
+#########################################################
+  geneL_normal  = c("pnca")
+  geneL_na_dy   = c("gid")
+  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']]
+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']]
+}
+
+if (tolower(gene)%in%geneL_dy){
+wf_dynamut   = all_dm_om_df[['wf_dynamut']]
+lf_dynamut   = all_dm_om_df[['lf_dynamut']]
+
+wf_encomddg  = all_dm_om_df[['wf_encomddg']]
+lf_encomddg  = all_dm_om_df[['lf_encomddg']]
+
+wf_encomdds  = all_dm_om_df[['wf_encomdds']]
+lf_encomdds  = all_dm_om_df[['lf_encomdds']]
+
+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']]
+}