if (FALSE) {
X <- rexp(10)*rexp(10)
means <- pp(X, sort=FALSE)
median <- pp.median(X)
supposed.median <- pp(X, a=0.3175, sort=FALSE)
lmr <- lmoms(X)
par <- parwak(lmr)
FF <- nonexceeds()
plot(FF, qlmomco(FF, par), type="l", log="y")
points(means, X)
points(median, X, col=2)
points(supposed.median, X, pch=16, col=2, cex=0.5)
# The plot shows that the median and supposed.median by the plotting-position
# formula are effectively equivalent. Thus, the partial application it seems
# that a=0.3175 would be good enough in lieu of the complexity of the
# quantile function of the Beta distribution.
}
Run the code above in your browser using DataLab