Excess Functions and Estimation of the Extreme-Value Index, Bernoulli, vol.2, issue.4, pp.293-318, 1996. ,
DOI : 10.2307/3318416
Fourier Analyses of Time Series, An Introduction, 2000. ,
Kernel Estimates of the Tail Index of a Distribution, The Annals of Statistics, vol.13, issue.3, pp.1050-1077, 1985. ,
DOI : 10.1214/aos/1176349656
A Moment Estimator for the Index of an Extreme-Value Distribution, The Annals of Statistics, vol.17, issue.4, pp.1833-1855, 1989. ,
DOI : 10.1214/aos/1176347397
Sur La Distribution Limite Du Terme Maximum D'Une Serie Aleatoire, The Annals of Mathematics, vol.44, issue.3, pp.423-453, 1943. ,
DOI : 10.2307/1968974
Modelling share volume traded in financial markets, Lithuanian Journal of Physics, vol.41, pp.551-555, 2001. ,
Return level bounds for small and moderate sample sizes for discret and continuous random variables, AMS Subject classifications ,
Statistics of extremes, 1985. ,
Parameter and Quantile Estimation for the Generalized Pareto Distribution, Technometrics, vol.4, issue.3, pp.339-349, 1987. ,
DOI : 10.1016/0022-1694(85)90108-8
Introduction to Time Series and Forecasting, 2002. ,
noise, Physical Review E, vol.58, issue.6, p.7013, 1998. ,
DOI : 10.1103/PhysRevE.58.7013
The qq-estimator of the index of regular variation, Communications in Statistics : Stochastic Models, pp.699-724, 1996. ,
Non-life Insurance Mathematics, 2004. ,
DOI : 10.1007/978-3-540-88233-6
Statistical inference using extreme-order statistics, Annals of Statistics, vol.3, pp.119-131, 1975. ,
The Spectral Analysis of Time Series., Journal of the Royal Statistical Society. Series A (Statistics in Society), vol.151, issue.3, 1981. ,
DOI : 10.2307/2983035
Extreme Values, regular Variation, and Point Process, 1987. ,
1)) { curve(dgev(x, shape=s), add=T) } curve(dgev(x, shape=-1), lwd=3, add=T, col='red') curve(dgev(x, shape=1), lwd=3, add=T, col='blue') #densité de la distribution Fréchet curve(dfrechet(x, shape=1), lwd=3, xlim=c(-1,2), ylim=c(0,1), ylab="", main="densité de la distribution Fréchet") for (s in seq(.1,2,by=.1)) { curve(dfrechet(x, shape=s), add=T) } curve(dfrechet(x, shape=2), lwd=3, add=T, col='red') curve(dfrechet(x, shape=.5), lwd=3, add=T, col='blue') #densité de la distribution (reverse) Weibull curve(drweibull(x, shape=1), lwd=3, xlim=c(-2,1), ylim=c(0,1), ylab="", main="densité de la distribution (reverse) Weibull ") for (s in seq(.1,2,by=.1)) { curve(drweibull(x, shape=s), add=T) } curve(drweibull(x, shape=2), lwd=3, add=T, col='red') curve(drweibull(x, shape=.5), lwd=3, add=T, col='blue') #densité de la distribution Gumbel curve(dgumbel(x), lwd=3, xlim=c(-2,2), ylim=c(0,1), ylab="", main="densité de la distribution Gumbel") #densité de la distribution GPD curve(dgpd(x, shape=0), lwd=3, xlim=c(-.1,2), ylim=c(0,2), xlab="y",ylab="", main="densité de la distribution GPD") for (s in seq)) { curve(dgpd(x, shape=s), add=T) } curve(dgpd(x, shape=-1), lwd=3, add=T, col='red') curve(dgpd(x, shape=1), lwd=3, add=T, col='blue') ii ? Paramètres des lois de la T.V.E (GEV et GPD) #Mean Excess Plot x <-sort(x) e <-rep(NA, length(x)) for (i in seq(along=x)), )', main="Mean Excess Plot") #Estimateur de Hill x<-sort(x) n<-length(x) hill<-rep(NA,(n-1)) for(j in seq(from=1,to=(n-1))){ hill[j]<-((sum(log(x[(n-j+1):n])))/j)-(log(x ,