From ca9324ba2224b9d4575e5e73e09096c5bd563441 Mon Sep 17 00:00:00 2001
From: dachafra <dachafra@gmail.com>
Date: Tue, 6 Oct 2020 12:00:10 +0200
Subject: [PATCH] solving data loading

---
 R/reproduceExperiments.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/reproduceExperiments.R b/R/reproduceExperiments.R
index 3174c21..d3a2533 100644
--- a/R/reproduceExperiments.R
+++ b/R/reproduceExperiments.R
@@ -189,7 +189,7 @@ plotExperiment2Test <- function(diefkDF, q, colors=c("#ECC30B","#D56062","#84BCD
   maxs <- data.frame(diefk25=max(x$diefk25), diefk50=max(x$diefk50), diefk75=max(x$diefk75), diefk100=max(x$diefk100))
   mins <- data.frame(diefk25=0, diefk50=0,  diefk75=0, diefk100=0)
   
-  data <- rbind(mins, maxs, x)
+  data <- rbind(maxs, mins, x)
   
   colors_border=colors
   colors_in=alpha(colors_border, 0.15)