Commit 923ecf4d authored by dmattek's avatar dmattek

llow for missing diata when calculating quantiles for outliers

parent 89d77a74
......@@ -694,8 +694,8 @@ shinyServer(function(input, output, session) {
if (input$chBoutliers) {
loc.out[, y.sc := scale(y)]
loc.tmp = loc.out[ y.sc < quantile(y.sc, (1 - input$slOutliersPerc * 0.01)*0.5) |
y.sc > quantile(y.sc, 1 - (1 - input$slOutliersPerc * 0.01)*0.5)]
loc.tmp = loc.out[ y.sc < quantile(y.sc, (1 - input$slOutliersPerc * 0.01)*0.5, na.rm = T) |
y.sc > quantile(y.sc, 1 - (1 - input$slOutliersPerc * 0.01)*0.5, na.rm = T)]
loc.out = loc.out[!(id %in% unique(loc.tmp$id))]
loc.out[, y.sc := NULL]
}
......
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