moved all test scripts for functions to tests/

scripts/functions/tests/test_lineage_dist.R

@@ -0,0 +1,32 @@
+###############################
+# TEST function lineage_dist.R
+# to plot lineage
+# dist plots with or without facet
+##############################
+getwd()
+setwd("~/git/LSHTM_analysis/scripts/plotting/")
+getwd()
+
+source("Header_TT.R")
+
+source("get_plotting_dfs.R")
+
+cat("cols imported:"
+    , mcsm_red2, mcsm_red1, mcsm_mid, mcsm_blue1, mcsm_blue2)
+
+
+#############################################################
+
+lineage_distP(lin_dist_plot
+              , with_facet = F
+              , leg_label = "Mutation Class"
+)
+
+lineage_distP(lin_dist_plot
+              , with_facet = T
+              , facet_wrap_var = "mutation_info_labels"
+              , leg_label = "Mutation Class"
+              , leg_pos_wf = "none"
+              , leg_dir_wf = "horizontal"
+              
+)