##################################################
### Example - Pollution levels in Milan, Italy ###
##################################################
data(MilanPollution)
# Frequentist estimation
fit <- fGEV(Milan.winter$PM10)
fit$est
# Bayesian estimation with high threshold
cov <- cbind(rep(1,nrow(Milan.winter)), Milan.winter$MaxTemp,
Milan.winter$MaxTemp^2)
u <- quantile(Milan.winter$PM10, prob=0.9, type=3, na.rm=TRUE)
# \donttest{
fit2 <- fGEV(data=Milan.winter$PM10, par.start=c(50,0,0,20,1),
method="Bayesian", u=u, cov=cov, sig0=0.1, nsim=5e+4)
# }
Run the code above in your browser using DataLab