#=================
# 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"
#)