#!/usr/bin/env Rscript      
source("~/git/Misc/shiny/myshiny/gid_data.R")
setwd("~/git/LSHTM_analysis/scripts/functions/")
source("bp_subcolours.R")


bp_stability_hmap(plotdf =  merged_df3
                  , stability_colname = "deepddg_scaled"
                  , stability_outcome_colname = "deepddg_outcome"
                  , p_title = "DeepDDG" )

bp_stability_hmap(plotdf =  merged_df3
                  , stability_colname = "ddg_dynamut2_scaled"
                  , stability_outcome_colname = "ddg_dynamut2_outcome"
                  , p_title = "Dynamut2" )

bp_stability_hmap(plotdf =  merged_df3
                  , stability_colname = "foldx_scaled"
                  , stability_outcome_colname = "foldx_outcome"
                  , p_title = "FoldX" )