moved combining_dfs_plotting.R to function and added test script for this as well
This commit is contained in:
parent
754cd70a6f
commit
5dec604742
5 changed files with 100 additions and 9 deletions
|
@ -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()
|
||||
#===============================================================
|
||||
#===============================================================
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue