ppoints <- function(x) {
	n <- length(x)
	if(n == 1) n <- x
	(1:n-0.5)/n
}
