# NOT RUN {
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
# }
Run the code above in your browser using DataLab