diff --git a/R/core_commons.R b/R/core_commons.R
index 6731b9ebff9527ca435f3c2e6d626199d2dcdf95..8499262fabc580dfb47fa1e7e6bde7c77c15f49f 100644
--- a/R/core_commons.R
+++ b/R/core_commons.R
@@ -157,7 +157,7 @@ replaceNA <- function(x, withValue) { x[is.na(x)] <- withValue; x }
 ## Deprecated: load dplyr after biomart to avoid this problem
 #dselect <- function(...) dplyr::select(...)
 
-removeOutliers <- function(values, range=quantile(values, c(0.05, 0.95)))  pmax(range[1], pmin(range[2], values))
+trimOutliers <- function(values, range=quantile(values, c(0.05, 0.95)))  pmax(range[1], pmin(range[2], values))