R/bowley.R

In reflimR: Reference Limit Estimation Using Routine Laboratory Data

Defines functions bowley

Documented in bowley

bowley <- function(x, alpha = 0.25){
  q <- quantile(x, c(alpha, 0.5, 1 - alpha))
  bs <- as.numeric((q[1] - 2 * q[2] + q[3]) / (q[3] - q[1]))
  return (bs)
}

Try the reflimR package in your browser