LSHTM_analysis/scripts/plotting/functions/test_functions.R

27 lines
821 B
R

#=================
# Test function
#==================
#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]]
#my_df_u = pd_df[[2]]
#my_df_u_lig = pd_df[[3]]
#dup_muts = pd_df[[4]]
#------------------------------
# barplot for mscm stability
#------------------------------
#stability_count_bp(plotdf = my_df
# , df_colname = "duet_outcome"
# , leg_title = "DUET outcome")
#------------------------------
# barplot for ligand affinity
#------------------------------
#stability_count_bp(plotdf = my_df_u
# , df_colname = "ligand_outcome"
# , leg_title = "Ligand outcome"
# , bp_plot_title = "Sites < 10 Ang of ligand"
#)