X <- rexp(200)
lmr <- lmoms(X)
P1 <- pargpa(lmr)
P2 <- pargpa(lmr, xi=0.25)
## Not run:
# F <- nonexceeds()
# plot(pp(X), sort(X))
# lines(F,quagpa(F,P1)) # black line
# lines(F, quagpa(F,P2), col=2) # red line
# ## End(Not run)
Run the code above in your browser using DataLab