add plot Eucl D

lib/scripts/calc_t_per_meth.R

@@ -711,10 +711,10 @@ plot_out = function(df_out, df_d , df_recall_sup09_per_meth, meths = NULL, suffi
                     nrow=2
                      )
     } else {
-        plot_png = plot_grid(plot_recall_precision,plot_max_MCC,plot_value_JSD,
-                    labels = c("A", "B","C"),
-                    rel_heights = c(0.5,0.5,1),
-                    nrow=3
+        plot_png = plot_grid(plot_recall_precision,plot_max_MCC,plot_value_JSD,plot_value_ED,
+                    labels = c("A", "B","C","D"),
+                    rel_heights = c(0.5,0.5,1,1),
+                    nrow=4
                      )
     }