# Extreme-value plot of Ozone from the airquality data
data(airquality)
evplot(airquality$Ozone)
# Fit a GEV distribution and add it to the plot
evdistq(quagev, pelgev(samlmu(airquality$Ozone)))
# Not too good -- try a kappa distribution instead
evdistq(quakap, pelkap(samlmu(airquality$Ozone)), col="red")
Run the code above in your browser using DataLab