C/C++教程

拓端tecdat:R语言极值理论 EVT、POT超阈值、GARCH 模型分析股票指数VaR、条件CVaR:多元化投资组合预测风险测度分析

本文主要是介绍拓端tecdat:R语言极值理论 EVT、POT超阈值、GARCH 模型分析股票指数VaR、条件CVaR:多元化投资组合预测风险测度分析,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!

原文链接:http://tecdat.cn/?p=24182

原文出处:拓端数据部落公众号

概要

本文用 R 编程语言极值理论 (EVT) 以确定 10 只股票指数的风险价值(和条件 VaR)。使用 Anderson-Darling 检验对 10 只股票的组合数据进行正态性检验,并使用 Block Maxima 和 Peak-Over-Threshold 的 EVT 方法估计 VaR/CvaR。最后,使用条件异向性 (GARCH) 处理的广义自回归来预测未来 20 天后指数的未来值。本文将确定计算风险因素的不同方法对模型结果的影响。

极值理论(最初由Fisher、Tippett和Gnedenko提出)表明,独立同分布(iid)变量样本的分块最大值的分布会收敛到三个极值分布之一。

最近,统计学家对极端值建模的兴趣又有了新的变化。极限值分析已被证明在各种风险因素的案例中很有用。在1999年至2008年的金融市场动荡之后,极值分析获得了有效性,与之前的风险价值分析不同。极限值代表一个系统的极端波动。极限值分析提供了对极端事件的概率、规模和保护成本的关系进行建模的能力。


 

参考

https://arxiv.org/pdf/1310.3222.pdf
https://www.ma.utexas.edu/mp_arc/c/11/11-33.pdf
http://evt2013.weebly.com/uploads/1/2/6/9/12699923/penalva.pdf
Risk Measurement in Commodities Markets Using Conditional Extreme Value Theory


 

第 1a 部分 - 工作目录、所需的包和会话信息

为了开始分析,工作目录被设置为包含股票行情的文件夹。然后,安装所需的 R 编程语言包并包含在包库中。R 包包括极值理论函数、VaR 函数、时间序列分析、定量交易分析、回归分析、绘图和 html 格式的包。

  1.   library(ggplot2)
  2.   library(tseries)
  3.   library(vars)
  4.   library(evd)
  5.   library(POT)
  6.   library(rugarch)
  7.    


 

第 1b 节 - 格式化专有数据

用于此分析的第一个文件是“Data_CSV.csv”。该文件包含在 DAX 证券交易所上市的 15 家公司的股票代码数据,以及 DAX 交易所的市场投资组合数据。从这个数据文件中选出了 10 家公司,这些公司最近十年的股价信息是从谷歌财经下载的。

第 1c 节 - 下载股票代码数据

股票价格数据下载并读入 R 编程环境。收益率是用“开盘价/收盘价 ”计算的,十家公司的数据合并在一个数据框中,(每家公司一列)。

结果数据帧的每一行代表记录股价的 10 年中的一个工作日。然后计算数据帧中每一行的均值。一列 10 年的日期被附加到数据框。还创建了仅包含行均值和日期信息的第二个数据框。

  1.   alDat <- cbind(retursDaa, returnDta_A,
  2.   retrnsata_Ss, reunsataDB,
  3.   retunsDta_H, reurnsDta_S, rtunsDaaA,
  4.   retrnsaa_senus,reursDtaAlnz,
  5.   reurnsData_ailer)


 

第 2a 节 - 探索性数据分析

创建一个数据框统计表,其中包含每列(或公司)的最小值、中值、平均值、最大值、标准偏差、1% 分位数、5% 分位数、95% 分位数、99% 分位数。分位数百分比适用于极值。还创建了所有收益率均值的时间序列图表。

  1.    
  2.   taeSs<- c(min(x), medan(x), man(x),
  3.   max(x), sd(x), quntile(x, .01),
  4.   quanile(x, .05), qunile(x, .95),
  5.   quatile(x, .99), lngth(x))
  6.    
  7.    


第 2b 节 - 10 只股票指数的 VaR 估计

  1.   all_va.2 <- VAR(lDvarts, p = 2, tpe= "cnst")
  2.    
  3.   # 预测未来125天、250天和500天
  4.   aDFva100 <- pdc(alDva.c, n.aea = 100, ci = 0.9)

为了开始估算数据所隐含的未来事件,我们进行了初步的风险值估算。首先,所有行的平均值和日期信息的数据框架被转换为时间序列格式,然后从这个时间序列中计算出风险值。根据VaR计算对未来100天和500天的价值进行预测。在随后的预测图中,蓝色圆圈代表未来100天的数值,红色圆圈代表500天的回报值。

  1.   plot(ap0$t$Tme[1:1200],
  2.   alF_ar.d.$fst[1:1200])

第 2c 部分 - 估计期望shortfall(ES),条件VAR(CvaR) 10 股票指数

为便于比较,计算了10只股票指数数据的条件风险值(CvaR或估计亏损)。首先,利用数据的时间序列,找到最差的0.95%的跌幅的最大值。然后,通过 "高斯 "方法计算出估计亏损,这两种计算的结果都以表格形式呈现。

ES(s(lD1:2528, 2, rp=FAE]),p=0.95, mho="gausn")

第 2d 节 - 10 只股票指数的希尔Hill估计

由于假设10股指数数据为重尾分布,数据极少变化,所以采用Hill Estimation对尾指数进行参数估计。目的是验证 10 只股票数据是否为极值分布。Hill Estimation 生成的图证实了。

  1.   hil(orvtis, otio="x", trt=15, nd=45)
  2.    

第 2e 节 - 正态分布的 Anderson-Darling 检验

Anderson-Darling 检验主要用于分布族,是分布非正态性的决定因素。在样本量较大的情况下(如在 10 股指数中),小于 0.05 的 P 值表明分布与正态性不同。这是极值分布的预期。使用 Anderson-Darling 检验发现的概率值为 3.7^-24,因此证实了非正态性。

第 2f 节 - 结果表

最后,给出了10个股票指数未来价值的估计结果表。3 个 VaR 估计值(和估计差额)的点估计值和范围被制成表格以比较。

  1.    
  2.   VaRES[3,] <- c("ES", etFbl[1], 4)
  3.   eSFbe[2], estFtbl[3],
  4.   rond(eSab[4], 4))

第 3a 节 - 10 个股票指数的 EVT 分块最大值估计

极值理论中的 Block Maxima 方法是 EVT 分析的最基本方法。Block Maxima 包括将观察期划分为相同大小的不重叠的时期,并将注意力限制在每个时期的最大观察值上。创建的观察遵循吸引条件的域,近似于极值分布。然后将极值分布的参数统计方法应用于这些观察。

极值理论家开发了广义极值分布。GEV 包含一系列连续概率分布,即 Gumbel、Frechet 和 Weibull 分布(也称为 I、II 和 III 型极值分布)。

在以下 EVT Block Maxima 分析中,10 股指数数据拟合 GEV。绘制得到的分布。创建时间序列图以定位时间轴上的极端事件,从 2006 年到 2016 年。然后创建四个按 Block Maxima 数据顺序排列的图。最后,根据 gev() 函数创建 Block Maxima 分析参数表。

  1.   gev(ltMeans, x=0.8, m=0)
  2.    
  3.    
  4.   plt(alVF)
  5.    



第 3b 节 - 分块最大值的 VaR 预测

为了从 Block Maxima 数据中创建风险价值 (VaR) 估计,将 10 股指数 GEV 数据转换为时间序列。VaR 估计是根据 GEV 时间序列数据进行的。未来值的预测(未来 100 天和 500 天)是从 VaR 数据推断出来的。在结果图中,蓝色圆圈表示未来 100 天的值,红色圆圈表示 500 天的收益率值。

  1.    
  2.   # 预测未来500天
  3.   aGE500<- preit(aG_va.c, n.ad = 500, ci = 0.9)
  4.    
  5.   plot(aGE500pd.500)


第 3c 部分 - 分块最大值的期望损失ES (CvaR)

10只股票指数GEV数据的条件风险值("CvaR "或 "期望损失")被计算。首先,利用数据的时间序列,找到最差的0.95%的缩水的最大值。然后,通过极端分布的 "修正 "方法来计算 "估计亏损",这两种计算的结果都以表格形式呈现。

  1.   # 条件缩减是最差的0.95%缩减的平均值
  2.   ddGV <- xdrow(aEVts[,2])
  3.   # CvaR(预期亏损)估计值
  4.   CvaR(ts(alE), p=0.95, meho="miie")


 

第 3d 节 - 分块极大值的 Hill 估计

希尔估计(用于尾部指数的参数估计)验证 10 只股票的 GEV 数据是极值分布。

第 3e 节 - 正态分布的 Anderson-Darling 检验

Anderson-Darling 检验是确定大样本数量分布的非正态性的有力决定因素。如果 P 值小于 0.05,则分布与正态性不同。通过该测试发现了一个微小的概率值 3.7^-24。

第 3f 节 - 结果表

最后,给出了对 10 股指数 GEV 未来价值的估计结果表。3 个 GEV VaR 估计值(和 GEV 期望损失)的点估计值和范围制成表格比较。

  1.   G_t[3,] <- c("GEV ES",sFale[1],
  2.   sStble[2], SEble[3],
  3.   "NA")
  4.   GRst


第 3g 节 - 分块极大值的 100 天 GARCH 预测

通过将 Block Maxima GEV 分布(10 只股票的指数)拟合到 GARCH(1,1)(广义自回归条件异型)模型,对 Block Maxima EVT 数据进行预测。显示预测公式参数表。创建一个“自相关函数”(ACF) 图,显示随时间变化的重要事件。然后,显示拟合模型结果的一组图。创建对未来 20 天(股票指数表现)的预测。最后,20 天的预测显示在 2 个图中。

  1.   spec(aanc.ol = list(mel = 'eGARCH',
  2.   garer= c(1, 1)),
  3.   dirion = 'sd')
  4.    
  5.   # 用广义自回归条件异质性拟合模型
  6.   alimol = ugct(pec,allV, sovr = 'ybi')
  7.    
  8.   cofale <- dtafe(cof(litol))
  9.   oeBal
  10.    
  11.   plt(l.itodl)


 

第 4a 节 - 峰值超过阈值估计 - 10 个股票指数

在 EVT 中的峰值超过阈值方法中,选择超过某个高阈值的初始观测值。这些选定观测值的概率分布近似为广义帕累托分布。通过拟合广义帕累托分布来创建最大似然估计 (mle)。MLE 统计数据以表格形式呈现。然后通过 MLE 绘图以图形方式诊断所得估计值。

plot(Dseans, u.rg=c(0.3, 0.35))

第 4b 节 - POT 的 VaR 预测

POT 数据的风险价值 (VaR) 估计是通过将 10 个股票指数 MLE 数据转换为时间序列来创建的。VaR 估计是根据 MLE 时间序列数据进行的。未来值的预测(未来 100 天和 500 天)是从 MLE VaR 数据推断出来的。在结果图中,蓝色圆圈表示未来 100 天的值,红色圆圈表示 500 天的收益值。

  1.   VAR(merts, p = 2, tp = "cost")
  2.    
  3.   # 预测未来125天、250天和500天
  4.   mle_r.pd <- prect(e.ar, n.ahad = 100, ci = 0.9)
  5.    
  6.    
  7.   plot(mea.prd)


第 4c 部分 - POT 的期望损失ES (CvaR) 预测

然后计算10只股票指数MLE数据的条件风险值("CvaR "或 "期望损失ES")。数据的时间序列被用来寻找最差的0.95%的跌幅的最大值。通过极端分布的 "修正 "方法,计算出 "期望损失ES",两种计算的结果都以表格形式呈现。

  1.   # 最差的0.95%最大回撤的平均值
  2.   mdM <- maxdadw(mlvs[,2])
  3.    
  4.   CvaR(ldaa), p=0.95, meto="mdii",
  5.   pimeod = "comnen", weghts)


 

第 4d 节 - 峰值超过阈值的 Hill 估计

Hill 估计(用于尾部指数的参数估计)验证 10 只股票的 MLE 数据是一个极值分布。

第 4e 节 - 正态分布的 Anderson-Darling 检验

Anderson-Darling 检验是确定大样本数量分布的非正态性的有力决定因素。如果 P 值小于 0.05,则分布与正态性不同。此测试的结果 P 值为 3.7^-24。

第 4f 节 - 结果表

最后,给出了 10 个股票指数 MLE 未来价值的估计结果表。3 个 MLE VaR 估计值(和 MLE 期望损失ES)的点估计值和范围被制成表格来比较。

第 4g 节 - 峰值超过阈值的 100 天 GARCH 预测

通过将 MLE(10 只股票指数的最大似然估计)拟合到 GARCH(1,1)(广义自回归条件异型性)模型,对峰值超过阈值 EVT 数据进行预测。显示预测公式参数表。创建了一个“自相关函数”(ACF)图,显示了随时间变化的重要事件。然后,显示拟合模型结果的一组图。然后创建对接下来 20 天(股票指数表现)的预测。最后,20 天的预测(来自峰值超过阈值 EVT extimation)显示在 2 个图中。

  1.   fit(ec,ta, slvr = 'hybrid')
  2.    
  3.    
  4.    
  5.   plot(pot.fite.ol)


 

第 5a 节 - 估计方法影响表

下表汇总了检验 极值分布的 10 个股票的四种方法的结果。第一列包含四种估计方法的名称。提供了 VaR、ES、mu统计量和 Anderson-Darling P 值的统计量。

  1.   c("VaR",
  2.   round(mean(cofets),4),
  3.   "NA", "NA", p.vau)
  4.   c("Block Maxm", round(mean(coffies),4),
  5.   MES, pr.ss[3],.vle)
  6.    
  7.   c("POT",
  8.   round(mean(cofies), 4),
  9.   MES, fitdaes, p.ale)
  10.    


 

第 5b 节 - 结论

在对 10 家公司(在 DAX 证券交易所上市)的 10 年股票收益率进行检查后,确认将收益率百分比的变化表征为极值分布的有效性。四种分析方法的拟合值的所有 Anderson-Darling 检验都显示分布具有正态性或所有非极值值的概率不显着。这些方法在收益数据中的风险价值方面是一致的。Block Maxima 方法会产生 VaR 估计的轻微偏差。传统的 VaR 估计和 POT 估计产生相同的风险价值。与股票收益率数据的传统 CvaR 估计相比,这 2 种 EVT 方法预测的预期缺口较低。标准 QQ 图表明峰值超过阈值是最可靠的估计方法,

在对10家公司(在德国DAX证券交易所上市)10年的股票收益率进行检查后,证实了将收益率变化定性为极值分布的有效性。对四种分析方法的拟合值进行的所有安德森-达林测试显示,分布具有正态性或所有非极值的概率不大。这些方法在收益数据的风险值方面是一致的。分块最大值方法产生了一个风险值估计的偏差。传统的VaR估计和POT估计产生相同的风险值。相对于传统的股票收益率数据的CvaR估计,两种EVT方法预测的期望损失较低。标准Q-Q图表明,在10只股票的指数中,Peaks-Over-Threshold是最可靠的估计方法。


最受欢迎的见解

1.R语言基于ARMA-GARCH-VaR模型拟合和预测实证研究

2.R语言时变参数VAR随机模型

3.R语言估计时变VAR模型时间序列的实证研究

4.R语言基于ARMA-GARCH过程的VAR拟合和预测

5.GARCH(1,1),MA以及历史模拟法的VaR比较

6.R语言用向量自回归(VAR)进行经济数据脉冲响应

7.R语言实现向量自动回归VAR模型

8.R语言随机搜索变量选择SSVS估计贝叶斯向量自回归(BVAR)模型

9.R语言VAR模型的不同类型的脉冲响应分析

这篇关于拓端tecdat:R语言极值理论 EVT、POT超阈值、GARCH 模型分析股票指数VaR、条件CVaR:多元化投资组合预测风险测度分析的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!