最近我们被客户要求撰写关于copula GARCH的研究报告,包括一些图形和统计输出。
在这个文章中,我们演示了copula GARCH方法(一般情况下)
1 模拟数据
首先,我们模拟一下创新分布。... X@path$seriesSim, check.attributes = FALSE),
## 绘制边缘函数
plot(X., type = "l", xlab = "t")
2 基于模拟数据的拟合程序...- rep(nu., d) # 边缘自由度
est <- cbind(fitted = c(estimate, nu.), true = c(th, nu, nu.)) # 拟合与真实值
3 从拟合的时间序列模型进行模拟...()
sim(fit[[j]], n.sim = n, m.sim = 1,
并绘制出每个结果序列(XtXt)。...apply(sim,fitted(x)) # 模拟序列
plot(X.., type = "l")