# Simulating data from the original DCC-GARCH(1,1) process
nobs <- 1000; cut <- 1000
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)
dcc.data <- dcc.sim(nobs, a, A, B, uncR, dcc.para, model="diagonal")
## Not run:
# # Estimating a DCC-GARCH(1,1) model
# dcc.results <- dcc.estimation(inia=a, iniA=A, iniB=B, ini.dcc=dcc.para,
# dvar=dcc.data$eps, model="diagonal")
#
# # Parameter estimates and their robust standard errors
# dcc.results$out
# ## End(Not run)
Run the code above in your browser using DataLab