diff --git a/R/core_commons.R b/R/core_commons.R index 93f3e6fb3c0fc3b0cba7030619112c9121f37e93..6a64c720db73856ee24630b696c7e2d572c16e74 100644 --- a/R/core_commons.R +++ b/R/core_commons.R @@ -556,7 +556,7 @@ lsosh <- function(..., n=10) { ## outlier handling trim_outliers <- function(values, probs=c(0.05, 0.95)){ - values = deResults$pvalue + # values = deResults$pvalue stopifnot(length(probs) == 2) quantiles = quantile(values, probs, na.rm = TRUE)