powered by
gevrlgradient(z, p)
gev.fit
return.level
ismev
gev.diag
data(portpirie) fit <- gev.fit(portpirie[,2]) gevrlgradient( fit, p=c(1/10, 1/20, 1/50, 1/100, 1/1000)) return.level( fit, conf=0.05, rperiods=c(10, 20, 50, 100, 1000))
Run the code above in your browser using DataLab