A <-NULL###结果矩阵
for (i in 1:4263) {###循环4263次
REI <- mydata[,c(1,24)]###从整个数据集中提取需要的两列
REI <- REI[1:1000+i,]###分别取数据集(两列的那个)的前1001行、1002行...直至全部数据集(一共5263行)
a <- fitgpd(REI$实体指数损失率...,threshold = 5)$pat###运行一个函数,分别取出里面的一个参数
A <- rbind(A,a)###将每次的参数作为一条数据追加到结果矩阵中
}
但是出了一些问题,按理说A矩阵里的最后一个数不应该是全部数据集运行函数后的参数么?
A矩阵最后一个数是0.024,如下
结果矩阵