moved combining_dfs_plotting.R to function and added test script for this as well

This commit is contained in:
Tanushree Tunstall 2021-06-22 18:15:15 +01:00
parent 754cd70a6f
commit 5dec604742
5 changed files with 100 additions and 9 deletions

View file

@ -1,11 +1,11 @@
setwd("~/git/LSHTM_analysis/scripts/plotting/functions")
setwd("~/git/LSHTM_analysis/scripts/functions/")
getwd()
#############################################################
#===========================================
# load functions, data, dirs, hardocded vars
# that will be used in testing the functions
#===========================================
source("../plotting_data.R")
source("plotting_data.R")
infile = "/home/tanu/git/Data/streptomycin/output/gid_comb_stab_struc_params.csv"
pd_df = plotting_data(infile)
my_df = pd_df[[1]]
@ -13,7 +13,7 @@ my_df_u = pd_df[[2]]
my_df_u_lig = pd_df[[3]]
dup_muts = pd_df[[4]]
source("../plotting_globals.R")
source("plotting_globals.R")
drug = "streptomycin"
gene = "gid"
@ -100,4 +100,4 @@ site_snp_count_bp(plotdf = my_df_u_lig
, df_colname = "position")
dev.off()
#===============================================================
#===============================================================