Sn(x, constant = 1.1926, finite.corr = missing(constant))
TRUE
unless
constant
is specified.mad
for the Qn
for another even more efficient alternative.x <- c(1:10, 100+1:9)# 9 outliers out of 19
Sn(x)
Sn(x, c=1)# 9
Sn(x[1:18], c=1)# 9
set.seed(153)
x <- sort(c(rnorm(80), rt(20, df = 1)))
Sn(x)
Run the code above in your browser using DataLab