Commit f88078bd authored by Holger Brandl's avatar Holger Brandl

fixed: invalid data reference in `trim_outliers`

parent 662f183a
...@@ -556,7 +556,7 @@ lsosh <- function(..., n=10) { ...@@ -556,7 +556,7 @@ lsosh <- function(..., n=10) {
## outlier handling ## outlier handling
trim_outliers <- function(values, probs=c(0.05, 0.95)){ trim_outliers <- function(values, probs=c(0.05, 0.95)){
values = deResults$pvalue # values = deResults$pvalue
stopifnot(length(probs) == 2) stopifnot(length(probs) == 2)
quantiles = quantile(values, probs, na.rm = TRUE) quantiles = quantile(values, probs, na.rm = TRUE)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment