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

added test_plotting_data.R, and replaced input param of csv into df

Browse source
This commit is contained in:
Tanushree Tunstall 2021-06-23 16:16:23 +01:00
parent 8277b489d6
commit 015e34894f
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
scripts/functions/test_plotting_data.R Normal file
View file

@ -0,0 +1,29 @@
getwd()
setwd("~/git/LSHTM_analysis/scripts/functions/")
getwd()
#############################################################
#===========================================
# load functions, data, dirs, hardocded vars
# that will be used in testing the functions
#===========================================
source("plotting_globals.R")
drug = "streptomycin"
gene = "gid"
import_dirs(drug_name = drug, gene_name = gene)
#-------------------------------
# test function: plotting_data()
#-------------------------------
source("plotting_data.R")
infile_params = "/home/tanu/git/Data/streptomycin/output/gid_comb_stab_struc_params.csv"
mcsm_comb_data = read.csv(infile_params, header = T)
pd_df = plotting_data(df = mcsm_comb_data, lig_dist_cutoff = 10)
my_df = pd_df[[1]]
my_df_u = pd_df[[2]]
my_df_u_lig = pd_df[[3]]
dup_muts = pd_df[[4]]
#===============================================================