tests/testthat/test-loglike_bekk.R

In BEKKs: Multivariate Conditional Volatility Modelling and Forecasting

test_that("Log-likelihood works with 2-dimensional sample data", {

  theta <-  c(0.026486941, -0.054371863, 0.118496142, 0.199628848, -0.007720701, -0.008865618,
              0.298887218, 0.976954018, 0.003170047, 0.019283272, 0.941393723)
  theta <- matrix(theta, nrow = 11)


  expect_equal(trunc(loglike_bekk(theta, data.matrix(StocksBonds))), -7425)
})

test_that("Log-likelihood works with 3-dimensional sample data", {

  theta <-  c( 0.0010122220, -0.0002678085,  0.0001905036,  0.0008937830,  0.0003111280,  0.0003893194,
               0.2453276126,  0.0222127631, -0.0434456548, -0.0366629406,  0.2637613982, -0.0248105673,
               0.0624407934, -0.0016446789,  0.1733957064,  0.9651528236, -0.0060973318,  0.0155928988,
               0.0125157899,  0.9606411455,  0.0008724460, -0.0196494968, -0.0009070321,  0.9801993180)
  theta <- matrix(theta, nrow = 24)


  expect_equal(trunc(loglike_bekk(theta, GoldStocksBonds)), 75249)
})