R语言基于ARMA-GARCH-VaR模型拟合和预测实证研究分析案例

最近我们被要求撰写关于ARMA-GARCH-VaR的研究报告,包括一些图形和统计输出。

本文显示了如何基于潜在的ARMA-GARCH模型(当然也涉及更广泛意义上的QRM)来拟合和预测风险价值(VaR)。

 相关视频:时间序列分析:ARIMA GARCH模型分析股票价格数据

时间序列分析模型 ARIMA-ARCH GARCH模型分析股票价格数据

视频:风险价值VaR原理与Python蒙特卡罗Monte Carlo模拟计算投资组合实例

风险价值VaR原理与Python蒙特卡罗Monte Carlo模拟计算投资组合实例

,时长10:03

从ARMA-GARCH过程模拟(log-return)数据

我们考虑使用t 分布的ARMA(1,1)-GARCH(1,1)过程。

模拟一个序列(用于说明目的)。

 
nu <- 3  
fixed.p <- list(mu = 0, #   mu (截距)
                ar1 = 0.5, #   phi_1 (AR(1) 参数 of mu_t)
                ma1 = 0.3, #   theta_1 (MA(1) 参数 of mu_t)
                omega = 4, #   alpha_0 (截距)
                alpha1 = 0.4, #   alpha_1 (GARCH(1) 参数 of sigma_t^2)
                beta1 = 0.2, #   beta_1 (GARCH(1) 参数 of sigma_t^2)
                shape = nu) #  
armaOrder <- c(1,1) # ARMA 参数
garchOrder <- c(1,1) # GARCH 参数
varModel <- list(model = "sGARCH", garchOrder = garchOrder)
spec <- ugarchspec(varModel, mean.model = list(armaOrder = armaOrder),
                   fixed.pars = fixed.p, distribution.model = "std") # t 标准残差

作为一个完整性检查,让我们绘制模拟序列,条件标准偏差和残差。

plot(X,   type = "l", xlab = "t", ylab = expression(X[t]))
​
plot(sig, type = "h", xlab = "t", ylab = expression(sigma[t]))

​

plot(eps, type = "l", xlab = "t", ylab = expression(epsilon[t]))

将ARMA-GARCH模型拟合到(模拟)数据

拟合ARMA-GARCH模型 。

让我们再考虑一些健全性检查。

## 拟合 ARMA(1,1)-GARCH(1,1) model
spec <- ugarchspec(varModel, mean.model = list(armaOrder = armaOrder),
                   distribution.model = "std") #  
fit <- ugarchfit(spec, data = X) # fit

##  
mu. <- fitted(fit) # 拟合 hat{mu}_t (= hat{X}_t)
sig. <- sigma(fit) # 拟合 hat{sigma}_t

##  
stopifnot(all.equal(as.numeric(mu.),  fit@fit$fitted.values),
          all.equal(as.numeric(sig.), fit@fit$sigma))

计算VaR时间序列

计算VaR估计值。请注意,我们也可以在这里使用基于GPD的估算模型。

Backtest VaR估计值

让我们回测VaR的估计。

## [1] 10
## [1] 12
## [1] "Correct Exceedances"
## [1] "Fail to Reject H0"
## [1] "Correct Exceedances & Independent"
## [1] "Fail to Reject H0"

基于拟合模型预测VaR

现在预测VaR。

模拟X_t的未来轨迹并计算相应的VaR

模拟序列,估计每个模拟路径的VaR(注意quantile()这里不能使用,因此我们必须手动构建VaR)并计算VaR _alpha的bootstrap置信区间。

结果对比

最后,我们显示所有结果。

非常感谢您阅读本文,有任何问题请在下面留言!


最受欢迎的见解

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模型的不同类型的脉冲响应分析

  • 9
    点赞
  • 97
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值