From 67cac1218b2ab835add2cb4cf3f99d0bbbb47809 Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Thu, 19 Feb 2015 16:05:56 +0100
Subject: [PATCH] cont. qpcr analysis
---
R/core_commons.R | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/R/core_commons.R b/R/core_commons.R
index 352c6af..e573638 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))
--
GitLab