Hey there,

welcome to part 2 of our short introduction to extreme value analysis using the `extRemes`

package in R.

As some of you might know, there are two common approaches for practical extreme value analysis. Today, we will focus on the first of these two approaches, called the block maxima method.

This approach for modelling extremes of a (time) series of observations is based on the utilization of maximum or minimum values of these observations within a certain sequence of constant length. For a sufficiently large number *n* of established blocks, the resulting peak values of these *n* blocks of equal length can be used for fitting a suitable distribution to these data. While the block size is basically freely selectable, a trade-off has to be made between bias (small blocks) and variance (large blocks). Usually, the length of the sequences is often chosen to correspond to a certain familiar time period, in most cases a year. The resulting vector of annual maxima (or minima, respectively) is calles “Annual Maxima (Minima) Series” or simply AMS.

According to the Fisher–Tippett–Gnedenko theorem, the distribution of block maxima can be approximated by a generalized extreme value distribution.

The following code shows a short practical example of fitting a generalized extreme value distribution to a time series of precipitation data using the `extRemes`

package in R. The sample data set features precipitation data of Bärnkopf (Lower Austria) from 1971 through 2014 and is is provided by the hydrographic services of Austria via eHYD. The function `read_ehyd()`

for importing the data set can be found at Reading data from eHYD using R.

# load required packages library(extRemes) library(xts) # get data from eHYD ehyd_url <- "http://ehyd.gv.at/eHYD/MessstellenExtraData/nlv?id=107540&file=2" precipitation_xts <- read_ehyd(ehyd_url) # derive AMS for maximum precipitation ams <- apply.yearly(precipitation_xts, max) # maximum-likelihood fitting of the GEV distribution fit_mle <- fevd(as.vector(ams), method = "MLE", type="GEV") # diagnostic plots plot(fit_mle) # return levels: rl_mle <- return.level(fit_mle, conf = 0.05, return.period= c(2,5,10,20,50,100)) # fitting of GEV distribution based on L-moments estimation fit_lmom <- fevd(as.vector(ams), method = "Lmoments", type="GEV") # diagnostic plots plot(fit_lmom) # return levels: rl_lmom <- return.level(fit_lmom, conf = 0.05, return.period= c(2,5,10,20,50,100)) # return level plots par(mfcol=c(1,2)) # return level plot w/ MLE plot(fit_mle, type="rl", main="Return Level Plot for Bärnkopf w/ MLE", ylim=c(0,200), pch=16) loc <- as.numeric(return.level(fit_mle, conf = 0.05,return.period=100)) segments(100, 0, 100, loc, col= 'midnightblue',lty=6) segments(0.01,loc,100, loc, col='midnightblue', lty=6) # return level plot w/ LMOM plot(fit_lmom, type="rl", main="Return Level Plot for Bärnkopf w/ L-Moments", ylim=c(0,200)) loc <- as.numeric(return.level(fit_lmom, conf = 0.05,return.period=100)) segments(100, 0, 100, loc, col= 'midnightblue',lty=6) segments(0.01,loc,100, loc, col='midnightblue', lty=6) # comparison of return levels results <- t(data.frame(mle=as.numeric(rl_mle), lmom=as.numeric(rl_lmom))) colnames(results) <- c(2,5,10,20,50,100) round(results,1)

In this case, both results are quite similar. In most cases, L-moments estimation is more robust than maximum likelihood estimation. In addition to these classical estimation methods, `extRemes`

offers Generalized Maximum Likelihood Estimation (GMLE, Martins and Stedinger, 2000) and Bayesian estimation methods (Gilleland and Katz, 2016). Moreover, I have made the observation that maximum likelihood estimation works more reliable in other R packages in some cases (e.g. `fExtremes`

, `ismev`

).

*Reference: Coles, Stuart (2001). An Introduction to Statistical Modeling of Extreme Values. Springer Series in Statistics. London: Springer.*

## 29 Comments

You can post comments in this post.

i want a help of you

Muhammad Arif 3 years ago

Sure. Can you specify your request?

Matthias 3 years ago

plz send me the r-coding for fitting generalized pareto distribution,estimating the parameters estimation by mle method

Muhammad Arif 3 years ago

There is another post about fitting a generalized pareto distribution to a partial duration series in R using the extRemes package. Both maximum likelihood estimation and L-moments estimaiton are covered there:

Introduction to Extreme Value Analysis in R – Part 3: Peak over Threshold Approach

Matthias 3 years ago

my research topic is “non stationary frequency analysis of extreme precipitation”.but i did not know my track. how i will proceed my job?

please help me.

thanks for your kindness!

Muhammad Arif 3 years ago

I also wrote a post about dealing with non-stationarity, you can find further information there:

Introduction to Extreme Value Analysis in R – Part 4: Dealing with trends

The

`fevd()`

function from the package`extRemes`

is quite powerful and well documented, I recommend to have a look at its help page.Matthias 3 years ago

Hi I am currently doing a thesis on Garch-EVT approach to estimate Value at Risk and Expected Shortfall. Can you send me the R procedure for this approach? Thanks

Gaby 2 years ago

Hi Gaby,

I have not yet worked with GARCH-EVT-copulas, if that’s what you intend to do. I am pretty sure that there is no specific R package targeted at this topic. So you probably have to split your procedure into several steps and deal with each step individually. Stack overflow is most likely a very good place to get some information and see the workflow of other people working with this topic. For a start, also take a look at

`fGarch`

(which is part of the`Rmetrics`

-suite, just as the excellent package`fExtremes`

) or`rugarch`

for GARCH modelling.In addition, you might want to have a look at the package

`GEVStableGarch`

which seemingly employs maximum likelihood extimation of GARCH models with a GEV distribution, maybe this is sufficient for your needs.Regards,

Matthias

Matthias 2 years ago

Thanks for your reply.

I’ll just be working with garch and evt. The procedure consists of applying a garch model to the return series and then extract the residuals from the model. Then we apply evt on the residuals extracted from the garch model. However I am having difficulties selecting the threshold from the residuals so as to apply EVT-POT or block maxima method to it. Can you help me?

Regards

Gaby

Gaby 2 years ago

I’m shocked that I found this info so easily.

Denver 2 years ago

Hi

Your website is very useful and make this topic easy to follow

How did you change your points on your return level plots to green?

misha 2 years ago

Hi,

unfortunately, the plotting methods for objects of type

`fevd`

are – albeit comprehensive – hardly customizable. Since I didn’t like the default plotting, I modified the plotting functions`plot.fevd.mle`

and`plot.fevd.lmoments`

to support better visualization options within the`extRemes`

framework.Regards,

Matthias

Matthias 2 years ago

Matthias,

i am still learning phase of R.

Would you be able to provide me with some guidance on how to get this done. Thanks

misha 2 years ago

Hi Misha,

I have written the following function for creating a simple return level plot (base graphics) from

`fevd`

objects that have been fitted of type GEV.You can control both the color of points and the lines of the fitted function as well as the number of ticks on your y-axis.

Please note that this is a very simple approach, I'm mainly re-using code from

`plot.fevd.mle()`

.In order to create a similar plot for the threshold excess approach, you would have to make slight adjustments to parameters of the GP and to the plotting positions of the extreme values:

Using

`rlplot_gev(mlefit, pointcolor = "darkblue")`

on the code of my post should yield return level plots similar to the default`plot(mlefit, type = "rl", xlim = c(1, 200), ylim = c(25, 225))`

Regards,

Matthias

Matthias 2 years ago

Hey!

I am currently writing my Bachelor Thesis on evds.

Would it be okay for you if I used your code as an example?

Lukas 2 years ago

Hi Lukas,

yes, sure. However, if you have enough time it might be worth to have a deeper look at the packages presented above.

This post is really meant as an introduction to the topic.

Regards,

Matthias

Matthias 2 years ago

When modelling the effects of extreme events (say of variable X) on volatility of prices of a commodity (say Y), is possible to fit GEV to X and then insert it as an exogenous variable in mean or volatility equation? If not, how can I approach this issue?

Waiguru 2 years ago

Hi,

I am not really sure if I understand what you are intending to do.

What is the question you are trying to answer?

Modelling the influence of X on Y sounds more like a standard regression model in the first place.

Matthias 2 years ago

Hello!

I have a question:

How can I use R and the Gumbel distribution to predict discharge on specific return periods?

And how do I know the return period?

Thank you!

Abeer Haddad 1 year ago

Hi,

basically, you can stick to my example code above.

If you specifically want to fit a Gumbel distribution, simply set the

`type`

argument in the`fevd()`

function to`type="Gumbel"`

.Return levels can be obtained by using the function

`return.level()`

.Regards,

Matthias

Matthias 1 year ago

Hi Matthias, I have a question too:

I want to use Block maxima Method to estimate Value at risk. How can I do this using EVT BMM? From Generalized Extreme Value distribution I need to estimate the shape, scale and loval parameters, but which function in R delivers this result? And I should use different blocks in the length of “months”, “quartal” and “6 months”. And after that to estimate with the help of the parameters the Value at Risk.

Regards,

Martina

Martina 1 year ago

Hi Matthias,

Thanks so much for this post, it’s helped me so much with my project.

Do you know what are the possible reasons why ML estimation might work for some sample data but not others? As I have found this during my project, and have had to apply L-moments instead.

Many thanks,

Peter

Peter 1 year ago

Hi Peter,

apart from the fact that it is of course possible that MLE may fail to converge (due to the existence of an unbounded likelihood function), you might want to try the implementations of either

`fExtremes`

or`ismev`

. I have found that they may produce sensible MLE estimates in case the`extRemes`

implementation fails. I have not yet found the leisure to check the`fevd()`

function thoroughly in this respect, since it is a real monster of a function, which is written in an overly way complex way, imho.Best regards,

Matthias

Matthias 1 year ago

Thanks for your response Matthias,

Okay, I don’t think it is due to the existence of an unbounded likelihood func, but L-moments estimation should be fine for my project anyway.

Thanks again, Peter

Peter 1 year ago

Hi Matthias,

I’ve tried to make a “similar return level plot for the threshold excess approach” (see your comment above concerning

`sdat < - sort(y)`

and so on), but it does not work. Would you be so kind and give me some advice?Thanks,

Tilo

Tilo 1 year ago

Hi Tilo,

basically, all you need is a slight modification of the above function. I will post my somewhat hacky solution using base graphics in the next couple of days. I always wanted to come up with a ggplot solution for return level plots, but I haven’t found time so far to implement it.

Matthias 1 year ago

Hey, I’m very excited I found this,

however I cant seem to download the sample data set, keep getting a

`Error during wrapup: scan() expected 'a real', got 'LÃ¼cke'`

when running

`read_ehyd(ehyd_url)`

using code you provided at http://www.gis-blog.com/read-ehyd/I also tried using Rcurl (that one works, however I also get the error

Which is the same when I'm using my own dataset, I'm guessing its a formatting issue on my end, maybe if you could provide just a sample of what the xts object is supposed to look like or code that formats dataset in the correct format I should be able to figure it out hopefully, I will be reading your awesome R-Help documentation and examples while I look forward to your reply.

Cameron Samson 12 months ago

I found a solution from using a An Introduction to Extreme Value Statistics by Marielle Pinheiro and Richard Grotjahn. (http://grotjahn.ucdavis.edu/EWEs/extremes_primer_v9_22_15.pdf) its based on the Extremes package and has a intro to the package and how to format it,

In the end it was data format and I managed to get it to work.

Thanks again for the blog though it was helpful,

Cameron

Cameron 12 months ago

Hi Cameron,

the problem you describe is due to an encoding issue. The data files contain the German word `Lücke’ (meaning `gap’ or `blank space’), which indicates an NA-value.

The trouble is caused by the Umlaut ü — you can find some information on that issue at the Mojibake article on Wikipedia.

I have set the target file encoding in the

`read_ehyd()`

-function to`latin1`

, this should fix the issue.The code runs fine on RStudio using Debian derivatives, but I think there might be some encoding issues with R on Windows machines, if the default encoding for the RStudio editor is windows-1252 instead of UTF-8.

Regards,

Matthias

Matthias 12 months ago

## Post A Reply