# Simulating data from the original DCC-GARCH(1,1) process
nobs <- 1000; cut <- 1000; nu <- 8
a <- c(0.003, 0.005, 0.001)
A <- diag(c(0.2,0.3,0.15))
B <- diag(c(0.75, 0.6, 0.8))
uncR <- matrix(c(1.0, 0.4, 0.3, 0.4, 1.0, 0.12, 0.3, 0.12, 1.0),3,3)
dcc.para <- c(0.01,0.98)
## Not run:
#
# # for normally distributed innovations
# dcc.data <- dcc.sim(nobs, a, A, B, uncR, dcc.para, model="diagonal")
#
# # for t distributed innovations
# dcc.data.t <- dcc.sim(nobs, a, A, B, uncR, dcc.para, d.f=nu,
# model="diagonal")
# ## End(Not run)
Run the code above in your browser using DataLab