## Not run:
# 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 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.
# ## End(Not run)
Run the code above in your browser using DataLab