data(beTWA)
par( mfrow=c(1,2) )
ple.plot(beTWA) # plot the PLE of F(x) for the beTWA data
ple.plot(beTWA,ylow=0.8) # plot the upper right tail
# Lognormal ML estimates of 95th percentile and CLs
unlist(percentile.ml(beTWA))
# PLE estimates of 95th percentile and CLs
unlist(percentile.ple(beTWA))
#
Run the code above in your browser using DataLab