在 R 中构建 GARCH 模型
Kris Boudt
Professor of finance and econometrics
将 ugarchspec() 的 distribution.model 从 "norm" 改为 "sstd":
garchspec <- ugarchspec( mean.model = list(armaOrder = c(0, 0)),
variance.model = list(model = "sGARCH"),
distribution.model = "norm")
$$ \downarrow$$
garchspec <- ugarchspec( mean.model = list(armaOrder = c(0, 0)),
variance.model = list(model = "sGARCH"),
distribution.model = "sstd")
在模型假设下
$$ R_{t} = \mu_{t} + e_{t} $$ $$ e_{t} \sim N(0, \sigma^{2}_{t}) $$
可得
$$ \frac{R_{t} - \mu_{t}}{\sigma_{t}} \sim N(0, 1) $$
$$ Z_{t} = \frac{R_{t} - \hat{\mu_{t}}}{ \hat{\sigma_{t}}} $$
在 R 中计算
# Obtain standardized returns
stdret <- residuals(garchfit, standardize = TRUE)
library(PerformanceAnalytics)
chart.Histogram(sp500ret, methods = c("add.normal", "add.density"),
colorset = c("gray", "red", "blue"))


因此,一个更现实的分布需能体现:
在 rugarch 中可用偏斜学生t分布实现:
garchspec <- ugarchspec(distribution.model = "sstd")
与正态相比,偏斜学生t分布多两个参数:
shape):$\nu$ 越小,尾部越肥。skew):$\xi=1$ 为对称;$\xi<1$ 负偏;$\xi>1$ 正偏。特例:




将参数 distribution.model 设为 "sstd"
garchspec <- ugarchspec(mean.model = list(armaOrder = c(0,0)),
variance.model = list(model = "sGARCH"),
distribution.model = "sstd")
估计模型
garchfit <- ugarchfit(data = sp500ret, spec = garchspec)
coef(garchfit)
mu omega alpha1 beta1 skew shape
5.669200e-04 6.281258e-07 7.462984e-02 9.223701e-01 9.436331e-01 6.318621e+00
在 R 中构建 GARCH 模型