Merge branch 'dev' of https://github.com/robinweide/GENOVA into dev

Author: teunbrand

R/methods_visualise.R

@@ -830,7 +830,7 @@ visualise.IS_discovery <- function(discovery, contrast = NULL, chr = "chr1",
   df <- df[ii,]
   expnames <- colnames(df)[5:ncol(df)]
 
-  df <- data.table(mid = df[["start"]] + df[["end"]]/2,
+  df <- data.table(mid = (df[["start"]] + df[["end"]])/2,
                    df[, ..expnames])
 
   showcontrast <- !is.null(contrast) &&