Я запускаю процедуру для различных спецификаций модели GARCH.Для сравнения я хотел сохранить вывод show(fit)
как файл .txt
.Я попробовал функцию sink()
, но текстовые файлы пусты.
for (p in c(1:3)){
for (q in c(1:3)){
myfile <- paste("GARCH",p,q, ".rda", sep="")
spec <- ugarchspec(mean.model = list(armaOrder = c(1, 0),
include.mean = TRUE), variance.model = list(model = 'mcsGARCH', garchOrder = c(p, q), external.regressors = ext_reg), distribution = 'nig')
# DailyVar is the required xts object of the forecast daily variance
myoutput <- paste("GARCH",p,q, "_Output.txt", sep="")
sink(myoutput)
fit <- ugarchfit(data = R_i, spec = spec, DailyVar = sigma_f^2)
show(fit)
sink()
save(fit, file = myfile) # Saving the whole .rda file works
Я видел, что sink()
работает на лм.но как я могу сохранить rugarch
вывод?