View source: R/rugarch-tests.R
DACTest | R Documentation |
Implements the Directional Accuracy Test of Pesaran and Timmerman and Excess Profitability Test of Anatolyev and Gerko.
DACTest(forecast, actual, test = c("PT", "AG"), conf.level = 0.95)
forecast |
A numeric vector of the forecasted values. |
actual |
A numeric vector of the actual (realized) values. |
test |
Choice of Pesaran and Timmermann (‘PT’) or Anatolyev and Gerko (‘AG’) tests. |
conf.level |
The confidence level at which the Null Hypothesis is evaluated. |
See the references for details on the tests. The Null is effectively that of independence, and distributed as N(0,1).
A list with the following items:
Test |
The type of test performed. |
Stat |
The test statistic. |
p-value |
The p-value of the test statistic. |
H0 |
The Null Hypothesis. |
Decision |
Whether to reject or not the Null given the conf.level. |
DirAcc |
The directional accuracy of the forecast. |
Alexios Ghalanos
Anatolyev, S. and Gerko, A. 2005, A trading approach to testing for
predictability, Journal of Business and Economic Statistics, 23(4),
455–461.
Pesaran, M.H. and Timmermann, A. 1992, A simple nonparametric test of predictive
performance, Journal of Business and Economic Statistics,
10(4), 461–465.
## Not run:
data(dji30ret)
spec = ugarchspec(mean.model = list(armaOrder = c(6,1), include.mean = TRUE),
variance.model = list(model = "gjrGARCH"), distribution.model = "nig")
fit = ugarchfit(spec, data = dji30ret[, 1, drop = FALSE], out.sample = 1000)
pred = ugarchforecast(fit, n.ahead = 1, n.roll = 999)
# Get Realized (Oberved) Data
obsx = tail(dji30ret[,1], 1000)
forc = as.numeric(as.data.frame(pred,rollframe="all",align=FALSE,which="series"))
print(DACTest(forc, obsx, test = "PT", conf.level = 0.95))
print(DACTest(forc, obsx, test = "AG", conf.level = 0.95))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.