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)
F <- nonexceeds()
plot(F, qlmomco(F,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 partical 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