R/hinkley.R

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
}
bayesball/LearnEDAfunctions documentation built on Sept. 20, 2020, 2:45 p.m.