"IQR" <-
function (x) 
as.vector(diff(quantile(as.numeric(x), c(0.25, 0.75))))
