| Title: | Multivariate Conditional Volatility Modelling and Forecasting |
|---|---|
| Description: | Methods and tools for estimating, simulating and forecasting of so-called BEKK-models (named after Baba, Engle, Kraft and Kroner) based on the fast Berndt–Hall–Hall–Hausman (BHHH) algorithm described in Hafner and Herwartz (2008) <doi:10.1007/s00184-007-0130-y>. For an overview, we refer the reader to Fülle et al. (2024) <doi:10.18637/jss.v111.i04>. |
| Authors: | Markus J. Fülle [aut, cre], Alexander Lange [aut], Christian M. Hafner [aut], Helmut Herwartz [aut] |
| Maintainer: | Markus J. Fülle <[email protected]> |
| License: | MIT + file LICENSE |
| Version: | 1.4.5 |
| Built: | 2024-11-26 05:55:42 UTC |
| Source: | https://github.com/cran/BEKKs |
Method for backtesting a model obtained from bekk_fit in terms of VaR-forcasting accuracy using a rolling window approach.
backtest( x, window_length = 1000, p = 0.99, portfolio_weights = NULL, n.ahead = 1, distribution = "empirical", nc = 1 )backtest( x, window_length = 1000, p = 0.99, portfolio_weights = NULL, n.ahead = 1, distribution = "empirical", nc = 1 )
x |
An object of class "bekkFit" from the function bekk_fit. |
window_length |
An integer specifying the length of the rolling window. |
p |
A numerical value that determines the confidence level. The default value is set at 0.99 in accordance with the Basel Regulation. |
portfolio_weights |
A vector determining the portfolio weights to calculate the portfolio VaR. If set to "NULL", the univariate VaR for each series are calculated. |
n.ahead |
Number of periods to predict conditional volatility. Default is a one-period ahead forecast. |
distribution |
A character string determining the assumed distribution of the residuals. Implemented are "normal", "empirical" and "t". The default is assuming the empirical distribution of the residuals. |
nc |
Number of cores to be used for parallel computation. |
Returns a S3 class "backtest" object containing the VaR forecast, out-of-sample returns and backtest statistics according to the R-package "GAS". conf
data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # backtesting x2 <- backtest(x1, window_length = 6000, n.ahead = 1, nc = 1) plot(x2) # backtesting using 5 day-ahead forecasts x3 <- backtest(x1, window_length = 6000, n.ahead = 5, nc = 1) plot(x3) # backtesting using 20 day-ahead forecasts and portfolio x4 <- backtest(x1, window_length = 6000, portfolio_weights = c(0.5,0.5), n.ahead = 20, nc = 1) plot(x4)data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # backtesting x2 <- backtest(x1, window_length = 6000, n.ahead = 1, nc = 1) plot(x2) # backtesting using 5 day-ahead forecasts x3 <- backtest(x1, window_length = 6000, n.ahead = 5, nc = 1) plot(x3) # backtesting using 20 day-ahead forecasts and portfolio x4 <- backtest(x1, window_length = 6000, portfolio_weights = c(0.5,0.5), n.ahead = 20, nc = 1) plot(x4)
Method for fitting a variety of N-dimensional BEKK models.
bekk_fit(spec, data, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-09)bekk_fit(spec, data, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-09)
spec |
An object of class "bekkSpec" from function bekk_spec. |
data |
A multivariate data object. Can be a numeric matrix or ts/xts/zoo object. |
QML_t_ratios |
Logical. If QML_t_ratios = 'TRUE', the t-ratios of the BEKK parameter matrices are exactly calculated via second order derivatives. |
max_iter |
Maximum number of BHHH algorithm iterations. |
crit |
Determines the precision of the BHHH algorithm. |
The BEKK optimization routine is based on the Berndt–Hall–Hall–Hausman (BHHH) algorithm and is inspired by the study of Hafner and Herwartz (2008). The authors provide analytical formulas for the score and Hessian of several MGARCH models in a QML framework and show that analytical derivations significantly outperform numerical methods.
Returns a S3 class "bekkFit" object containing the estimated parameters, t-values, standard errors and volatility process of the model defined by the BEKK_spec object.
Hafner and Herwartz (2008). Analytical quasi maximum likelihood inference in multivariate volatility models. Metrika, 67, 219-239.
Fülle, M. J., A. Lange, C. M. Hafner, and H. Herwartz (2024). BEKKs: An R package for estimation of conditional volatility of multivariate time series. Journal of Statistical Software 111 (4), 1–34. <doi:10.18637/jss.v111.i04>.
data(StocksBonds) # Fitting a symmetric BEKK model obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) plot(x1) # Fitting an asymmetric BEKK model obj_spec <- bekk_spec(model = list(type = "bekk", asymmetric = TRUE)) x1 <- bekk_fit(obj_spec, StocksBonds) summary(x1) plot(x1) # Fitting a symmetric diagonal BEKK model obj_spec <- bekk_spec(model = list(type = "dbekk", asymmetric = FALSE)) x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) plot(x1) # Fitting a symmetric scalar BEKK model obj_spec <- bekk_spec(model = list(type = "sbekk", asymmetric = FALSE)) x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) plot(x1)data(StocksBonds) # Fitting a symmetric BEKK model obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) plot(x1) # Fitting an asymmetric BEKK model obj_spec <- bekk_spec(model = list(type = "bekk", asymmetric = TRUE)) x1 <- bekk_fit(obj_spec, StocksBonds) summary(x1) plot(x1) # Fitting a symmetric diagonal BEKK model obj_spec <- bekk_spec(model = list(type = "dbekk", asymmetric = FALSE)) x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) plot(x1) # Fitting a symmetric scalar BEKK model obj_spec <- bekk_spec(model = list(type = "sbekk", asymmetric = FALSE)) x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) plot(x1)
Method for creating a N-dimensional BEKK model specification object prior to fitting and/or simulating.
bekk_spec( model = list(type = "bekk", asymmetric = FALSE), init_values = NULL, signs = NULL, N = NULL )bekk_spec( model = list(type = "bekk", asymmetric = FALSE), init_values = NULL, signs = NULL, N = NULL )
model |
A list containing the model type specification: Either "bekk" "dbekk" or "sbekk". Moreover it can be specified whether the model should be estimated allowing for asymmetric volatility structure. |
init_values |
initial values for bekk_fit during BHHH algorithm. It can be either a numerical vector of suitable dimension, 'NULL' (default) to use a simple grid search algorithm, or a character vector i.e. "random" to use a random starting value generator (set a seed in advance for reproducible results), or "simple" for relying on a simple initial values generator based on typical values for BEKK parameter found in the literature. If the object from this function is passed to simulate, "init_values" are used as parameters for data generating process. |
signs |
An N-dimensional vector consisting of "1" or "-1" to indicate the asymmetric effects to be considered. Setting the i-th element of the vector to "1" or "-1" means that the model takes into account additional volatility if the returns of the i-th column in the data matrix are either positive or negative. If "asymmetric = TRUE", the default is set to "rep(-1, N)" i.e. it is assumed that excess volatility occurs for all series if the returns are negative. |
N |
Integer specifying the dimension of the BEKK model. Only relevant when this object of class "bekkSpec"" is used for simulating BEKK processes by applying it to simulate. |
Returns a S3 class "bekkSpec" object containing the specifications of the model to be estimated.
data(StocksBonds) # Fitting a symmetric BEKK model using default starting values # - i.e. fixed values obj_spec_fixed <- bekk_spec(init_values = NULL) x1 <- bekk_fit(obj_spec_fixed, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # Fitting a symmetric BEKK model using initial values originating from a # random grid search algorithm obj_spec_random <- bekk_spec(init_values = "random") x2 <- bekk_fit(obj_spec_random, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) summary(x2) plot(x1) plot(x2) # Fitting an asymmetric BEKK model with default starting values obj_spec_fix <- bekk_spec(model = list(type = "bekk", asymmetric = TRUE), init_values = NULL) x1 <- bekk_fit(obj_spec_fix, StocksBonds) obj_spec_random <- bekk_spec(model = list(type = "bekk", asymmetric = TRUE), init_values = "random") x2 <- bekk_fit(obj_spec_random, StocksBonds) summary(x1) summary(x2)data(StocksBonds) # Fitting a symmetric BEKK model using default starting values # - i.e. fixed values obj_spec_fixed <- bekk_spec(init_values = NULL) x1 <- bekk_fit(obj_spec_fixed, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # Fitting a symmetric BEKK model using initial values originating from a # random grid search algorithm obj_spec_random <- bekk_spec(init_values = "random") x2 <- bekk_fit(obj_spec_random, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) summary(x1) summary(x2) plot(x1) plot(x2) # Fitting an asymmetric BEKK model with default starting values obj_spec_fix <- bekk_spec(model = list(type = "bekk", asymmetric = TRUE), init_values = NULL) x1 <- bekk_fit(obj_spec_fix, StocksBonds) obj_spec_random <- bekk_spec(model = list(type = "bekk", asymmetric = TRUE), init_values = "random") x2 <- bekk_fit(obj_spec_random, StocksBonds) summary(x1) summary(x2)
This package implements estimation, simulation and forecasting techniques for conditional volatility modelling using the BEKK model. We refer the reader to Fülle et al. (2024) for a package overview. The full BEKK(1,1,1) model of Engle and Kroner (1995) \[H_t = CC' + A' r_{t-1} r_{t-1}'A + G' H_{t-1}G ,\] the asymmetric extensions of Kroner and Ng (1998) and Grier et. al. (2004) \[H_t = CC' + A' r_{t-1} r_{t-1}'A +B'\gamma_{t-1} \gamma_{t-1}' B+G'H_{t-1}G\] with \[\gamma_t = r_t I\left(r_t < 0 \right)\] are implemented. Moreover, the diagonal BEKK, where the parameter matrices A, B and G are reduced to diagonal matrices and the scalar BEKK model of Ding and Engle (2001) \[H_t = CC' + a r_{t-1} r_{t-1}' + g H_{t-1},\] where a and g are scalar parameters and are implemented to allow faster but less flexible estimation in higher dimensions.
The main functions are:
bekk_spec |
Specifies the model type to be estimated. |
bekk_fit |
Estimates a BEKK(1,1,1) model of a given series and specification object bekk_spec. |
simulate |
Simulates a BEKK(1,1,1) process using either a bekk_fit or bekk_spec object. |
predict |
Forecasts conditional volatility using a bekk_fit object. |
VaR |
Estimates (portfolio) Value-at-Risk using a fitted BEKK(1,1,1) model. |
backtest |
Backtesting estimated (portfolio) value-at-risks of a fitted BEKK(1,1,1) model. |
virf |
Calculates volatility impulse response functions for fitted symmetric BEKK(1,1,1) models. |
Markus J. Fülle [email protected]
Helmut Herwartz [email protected]
Alexander Lange [email protected]
Christian M. Hafner [email protected]
Engle, R. F. and K. F. Kroner (1995). Multivariate simultaneous generalized arch. Econometric Theory 11(1),122-150.
Fülle, M. J., A. Lange, C. M. Hafner, and H. Herwartz (2024). BEKKs: An R package for estimation of conditional volatility of multivariate time series. Journal of Statistical Software 111 (4), 1–34. doi:10.18637/jss.v111.i04.
Kroner, K. F. and V. K. Ng (1998). Modeling asymmetric comovements of asset returns. Review of Financial Studies 11(4), 817-44.
Ding, Zhuanxin and Engle, Robert F (2001). Large scale conditional covariance matrix modeling, estimation and testing. NYU working paper No. Fin-01-029.
Grier, K. B., Olan T. Henry, N. Olekalns, and K. Shields (2004). The asymmetric effects of uncertainty on inflation and output growth. Journal of Applied Econometrics 19(5), 551-565.
Hafner CM, Herwartz H (2006). Volatility impulse responses for multivariate GARCH models: An exchange rate illustration. Journal of International Money and Finance,25,719-740.
Trivariate data set consisting of daily gold, S&P 500 and U.S. Treasury Bond Future returns from October 1991 to October 2021.
data("GoldStocksBonds")data("GoldStocksBonds")
A time series matrix of class mts 7346 observations on the following 3 variables.
a numeric vector
a numeric vector
a numeric vector
Yahoo Finance.
data(GoldStocksBonds) ## maybe str(GoldStocksBonds) ; plot(GoldStocksBonds) ...data(GoldStocksBonds) ## maybe str(GoldStocksBonds) ; plot(GoldStocksBonds) ...
Method for a Portmanteau test of the null hypothesis of no remaining correlation in the co-variances of the estimated BEKK residuals.
portmanteau.test(x, lags = 5)portmanteau.test(x, lags = 5)
x |
An object of class "bekkFit" from function bekk_fit. |
lags |
An integer defining the lag length. |
Here, the multivariate Portmanteau test of Hosking (1980) is implemented.
Returns an Object of class "htest" containing the p-value and test statistic.
J. R. M. Hosking (1980). The Multivariate Portmanteau Statistic, Journal of the American Statistical Association, 75:371, 602-608.
Method for predicting a N-dimensional BEKK covariances.
## S3 method for class 'bekk' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'bekka' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'dbekk' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'dbekka' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'sbekk' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'sbekka' predict(object, n.ahead = 1, ci = 0.95, ...)## S3 method for class 'bekk' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'bekka' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'dbekk' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'dbekka' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'sbekk' predict(object, n.ahead = 1, ci = 0.95, ...) ## S3 method for class 'sbekka' predict(object, n.ahead = 1, ci = 0.95, ...)
object |
A fitted bekk model of class "bekkFit" from the bekk_fit function |
n.ahead |
Number of periods to forecast conditional volatility. Default is a one-period ahead forecast. |
ci |
Floating point in [0,1] defining the niveau for confidence bands of the conditional volatility forecast. Default is 95 per cent niveau confidence bands. |
... |
Further parameters to be passed on to the function. |
Returns a S3 class "bekkForecast" object containing the conditional volatility forecasts and respective confindence bands.
#' data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) x2 <- predict(x1, n.ahead = 1)#' data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) x2 <- predict(x1, n.ahead = 1)
Generic 'bekkFit' methods. More details on 'bekkFit' are described in bekk_fit
## S3 method for class 'bekkFit' print(x, ...) ## S3 method for class 'bekkFit' residuals(object, ...) ## S3 method for class 'bekkFit' logLik(object, ..., k = 2)## S3 method for class 'bekkFit' print(x, ...) ## S3 method for class 'bekkFit' residuals(object, ...) ## S3 method for class 'bekkFit' logLik(object, ..., k = 2)
x |
An object of class "bekkFit" from function bekk_fit. |
... |
Further arguments to be passed to and from other methods. |
object |
An object of class "bekkFit" from function bekk_fit. |
k |
Numeric value, the penalty per parameter for AIC to be used; the default k = 2 is the classical AIC. |
data(StocksBonds) # Fitting a symmetric BEKK model obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) logLik(x1)data(StocksBonds) # Fitting a symmetric BEKK model obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) logLik(x1)
Method for simulating a N-dimensional BEKK model.
## S3 method for class 'bekk' simulate(object, nsim, ...) ## S3 method for class 'bekka' simulate(object, ..., nsim) ## S3 method for class 'dbekk' simulate(object, ..., nsim) ## S3 method for class 'dbekka' simulate(object, ..., nsim) ## S3 method for class 'sbekk' simulate(object, ..., nsim) ## S3 method for class 'sbekka' simulate(object, ..., nsim)## S3 method for class 'bekk' simulate(object, nsim, ...) ## S3 method for class 'bekka' simulate(object, ..., nsim) ## S3 method for class 'dbekk' simulate(object, ..., nsim) ## S3 method for class 'dbekka' simulate(object, ..., nsim) ## S3 method for class 'sbekk' simulate(object, ..., nsim) ## S3 method for class 'sbekka' simulate(object, ..., nsim)
object |
A spec object of class "bekkSpec" from the function bekk_spec or a fitted bekk model of class "bekkFit" from the bekk_fit function |
nsim |
Number of observations of the simulated sample |
... |
Further parameters to be passed on to the function. |
Returns a simulated time series S3 class object using the parameters of passed "bekkSpec" or "bekkFit".
# simulate a BEKK with estimated parameter obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds) x2 <- simulate(x1, nsim = 3000) plot(x2)# simulate a BEKK with estimated parameter obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds) x2 <- simulate(x1, nsim = 3000) plot(x2)
Bivariate data set consisting of daily S&P 500 bond and MSCI World returns from December 1995 to December 2019.
data("StocksBonds")data("StocksBonds")
A time series matrix of class mts with 6073 observations on the following 2 variables.
a numeric vector
a numeric vector
Yahoo Finance.
data(StocksBonds) ## maybe str(StocksBonds) ; plot(StocksBonds) ...data(StocksBonds) ## maybe str(StocksBonds) ; plot(StocksBonds) ...
Method for calculating VaR from estimated covariance processes (bekk_fit) or predicted covariances (predict).
VaR(x, p = 0.99, portfolio_weights = NULL, distribution = "empirical")VaR(x, p = 0.99, portfolio_weights = NULL, distribution = "empirical")
x |
An object of class "bekkFit" from the function bekk_fit or an object of class "bekkForecast" from the function predict. |
p |
A numerical value that determines the confidence level. The default value is set at 0.99 in accordance with the Basel Regulation. |
portfolio_weights |
A vector determining the portfolio weights to calculate the portfolio VaR. If set to "NULL", the univariate VaR for each series are calculated. |
distribution |
A character string determining the assumed distribution of the residuals. Implemented are "normal", "empirical" and "t". The default is using the empirical distribution of the residuals. |
Returns a S3 class "var" object containing the VaR forecast and respective confidence bands.
data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # single VaRs of series x2 <- VaR(x1, distribution="normal") plot(x2) # VaR of equally-weighted portfolio portfolio_weights <- c(0.5, 0.5) x3 <- VaR(x1, portfolio_weights = portfolio_weights) plot(x3) # VaR of traditional 30/70 weighted bond and stock portfolio portfolio_weights <- c(0.3, 0.7) x4 <- VaR(x1, portfolio_weights = portfolio_weights) plot(x4)data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # single VaRs of series x2 <- VaR(x1, distribution="normal") plot(x2) # VaR of equally-weighted portfolio portfolio_weights <- c(0.5, 0.5) x3 <- VaR(x1, portfolio_weights = portfolio_weights) plot(x3) # VaR of traditional 30/70 weighted bond and stock portfolio portfolio_weights <- c(0.3, 0.7) x4 <- VaR(x1, portfolio_weights = portfolio_weights) plot(x4)
Method for estimating VIRFs of N-dimensional BEKK models. Currently, only VIRFs for symmetric BEKK models are implemented.
virf( x, time = 1, q = 0.05, index_series = 1, n.ahead = 10, ci = 0.9, time_shock = FALSE )virf( x, time = 1, q = 0.05, index_series = 1, n.ahead = 10, ci = 0.9, time_shock = FALSE )
x |
An object of class "bekkfit" from function bekk_fit. |
time |
Time instance to calculate VIRFs for. |
q |
A number specifying the quantile to be considered for a shock on which basis the VIRFs are generated. |
index_series |
An integer defining the number of series for which a shock is assumed. |
n.ahead |
An integer defining the number periods for which the VIRFs are generated. |
ci |
A number defining the confidence level for the confidence bands. |
time_shock |
Boolean indicating if the estimated residuals at date specified by "time" shall be used as a shock. |
Returns an object of class "virf".
Hafner CM, Herwartz H (2006). Volatility impulse responses for multivariate GARCH models: An exchange rate illustration. Journal of International Money and Finance,25,719–740.
data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # 250 day ahead VIRFs and 90% CI for a Shock in the 1% quantile of Bonds (i.e. series=2) # shock is supposed to occur at day 500 x2 <- virf(x1, time = 500, q = 0.01, index_series=2, n.ahead = 500, ci = 0.90) plot(x2)data(StocksBonds) obj_spec <- bekk_spec() x1 <- bekk_fit(obj_spec, StocksBonds, QML_t_ratios = FALSE, max_iter = 50, crit = 1e-9) # 250 day ahead VIRFs and 90% CI for a Shock in the 1% quantile of Bonds (i.e. series=2) # shock is supposed to occur at day 500 x2 <- virf(x1, time = 500, q = 0.01, index_series=2, n.ahead = 500, ci = 0.90) plot(x2)