powered by
huber()
huberM(x, k = 1.5, tol = 1e-06, mu = median(x), s = mad(x, center=mu), warn0scale = getOption("verbose"))
k
s
length(x) > 1
hubers
huber
mad
huberM(c(1:9, 1000)) mad (c(1:9, 1000)) mad (rep(9, 100)) huberM(rep(9, 100))
Run the code above in your browser using DataLab