hinkley <- function (d){
md <- median(d)
mn <- mean(d)
s <- diff(quantile(d, probs = c(0.25, 0.75)))
H <- (mn - md)/s
names(H) <- "h"
H
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.