Как извлечь AIC из uGARCHfit (пакет rugarch)

Question

Я установил модель egarch с использованием пакета rugarch и хотел бы извлечь AIC из подобранной модели. Как мне это сделать?

Я пробовал два кода fittedmodel@fit$infocriteria[1] и fittedmodel@fit$criteria[1] но ни один из них не работает

egarchspec=ugarchspec(variance.model = list(model = "eGARCH", garchOrder = c(1,1)),distribution.model="sged")
fittedmodel<-ugarchfit(egarchspec, data=pregfc$RAU)
fittedmodel@fit$infocriteria[1]

Результат NULL.

Answer 1

Мы можем использовать infocriteria как в

data(dmbp)
spec <- ugarchspec()
fit <- ugarchfit(data = dmbp[,1], spec = spec)

infocriteria(fit)
#                      
# Akaike       1.124508
# Bayes        1.141493
# Shibata      1.124490
# Hannan-Quinn 1.130749
infocriteria(fit)[1]
# [1] 1.124508

Если вы хотите сделать это больше вручную или увидеть формулы, см.

getMethod("infocriteria", "uGARCHfit")

, что приводит к

rugarch:::.information.test
# function (LLH, nObs, nPars) 
# {
#     AIC = (-2 * LLH)/nObs + 2 * nPars/nObs
#     BIC = (-2 * LLH)/nObs + nPars * log(nObs)/nObs
#     SIC = (-2 * LLH)/nObs + log((nObs + 2 * nPars)/nObs)
#     HQIC = (-2 * LLH)/nObs + (2 * nPars * log(log(nObs)))/nObs
#     informationTests = list(AIC = AIC, BIC = BIC, SIC = SIC, 
#         HQIC = HQIC)
#     return(informationTests)
# }
# <bytecode: 0x10e316fc0>
# <environment: namespace:rugarch>