function(x)
{
	n <- length(x)
	y <- c(1:n)/(n + 1)
	qqplot(x, y)
}
