X <- rexp(200)
lmr <- lmoms(X)
P1 <- pargpa(lmr)
P2 <- pargpa(lmr, xi=0.25)
if (FALSE) {
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