diff --git a/R/core_commons.R b/R/core_commons.R
index 352c6af988abf64c5cc853b0a13373c0905f6c58..e573638b225e89f84ff4ff8aae6900f3fe7322c9 100644
--- a/R/core_commons.R
+++ b/R/core_commons.R
@@ -158,7 +158,10 @@ replaceNA <- function(x, withValue) { x[is.na(x)] <- withValue; x }
 ## Deprecated: load dplyr after biomart to avoid this problem
 #dselect <- function(...) dplyr::select(...)
 
-trimOutliers <- function(values, range=quantile(values, c(0.05, 0.95)))  pmax(range[1], pmin(range[2], values))
+## outlier handling
+trim_outliers <- function(values, range=quantile(values, c(0.05, 0.95)))  pmax(range[1], pmin(range[2], values))
+
+limit_range <- function(values, range)  pmax(range[1], pmin(range[2], values))