function(x)
{
	n <- length(x)
	q1 <- (n + 1)/4
	q3 <- 3 * q1
	xs <- sort(x)
	d <- xs[floor(q3)] - xs[floor(q1)]
	d
}
