Guest User

Untitled

a guest
Jul 18th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.47 KB | None | 0 0
  1. My code is:
  2. # Univariate model specifications
  3. uspec1 <- ugarchspec(mean.model = list(armaOrder = c(2,2))) # super, DM, FM
  4. uspec2 <- ugarchspec(mean.model = list(armaOrder = c(0,1))) # DM, EM, FM
  5. uspec3 <- ugarchspec(mean.model = list(armaOrder = c(0,0))) # DM, EM, FM
  6. uspec4 <- ugarchspec(mean.model = list(armaOrder = c(0,2))) # DM, EM
  7. uspec5 <- ugarchspec(mean.model = list(armaOrder = c(1,1))) # DM, EM, FM
  8. uspec6 <- ugarchspec(mean.model = list(armaOrder = c(1,0))) # DM, EM, FM
  9. uspec7 <- ugarchspec(mean.model = list(armaOrder = c(2,0))) # EM, FM
  10. uspec8 <- ugarchspec(mean.model = list(armaOrder = c(2,1))) # EM
  11. uspec9 <- ugarchspec(mean.model = list(armaOrder = c(3,2))) # FM
  12.  
  13. # Multispec()
  14. superDM.multispec <- multispec(c((replicate(2, uspec1)), (replicate(9, uspec2)), (replicate(7, uspec3)), uspec4, (replicate(2, uspec5)), (replicate(2,uspec6))))
  15.  
  16. # Estimating univariate GARCH models specified above using multifit command
  17. superDM.multifit <- multifit(superDM.multispec, cbind_superDM)
  18.  
  19. # Specifying the ADCC model
  20. superDM.adccspec <- dccspec(uspec = superDM.multispec, dccOrder = c(1,1), model = "aDCC", distribution = "mvnorm")
  21.  
  22. # Model estimation
  23. superDM.adccfit <- dccfit(superDM.adccspec, data = cbind_superDM, fit.control = list(eval.se = TRUE), fit = superDM.multifit)
  24.  
  25. # Get model based time-varying covariance and correlation matrices
  26. superDM.cov <- rcov(superDM.adccfit) # extracts the covariance matrix
  27. superDM.cor <- rcor(superDM.adccfit) # extracts the correlation matrix
Add Comment
Please, Sign In to add comment