求助 R软件包 计算 重现期

使用GEV分布，利用40年的日最大数据，求重现期

data=read.table(file="d:/try/50557.csv",sep=",",header=FALSE)
fit<-gev.fit(data$V3)                                  %第三列数据
gev.diag(fit)
class(fit)<-"gev.fit"
fit.rl<-return.level(fit)第三列数据

数据是：每年一个值，共40个数据（代表40年）
是不是最后一行不对啊？我想显示结果如下：
重现期
2year    A
5year    B
10year  C
15year  D
50year  E
100year F

怎么样可以显示这个结果呢？