Nothing
x <- c(1:20,20)
boxplot.stats(x)
iqr <- 16 - 6
# not an outlier
x <- c(1:20, 16 + 1.5 * iqr)
boxplot.stats(x)$out
# now it is an outlier
x <- c(1:20, 16 + 1.51 * iqr)
boxplot.stats(x)$out
###
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.