ppoints

[Bill Simpson]

When I look at ppoints I see:

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

However Venables & Ripley (2nd ed, p 165) say ppoints() should return
(i-1/2)/n for n>=11; (i-3/8)/(n+1/4) for n<=10.

The version below should work as described:

ppoints<-function (x) 
{
n <- length(x)
if (n <= 10)
	(1:n - 0.375)/(n + 0.25) 
else
	(1:n - 0.5)/n
}

Bill Simpson

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._