tests/testthat/test-Grid_Search.R

test_that("Testing GridSearch works with StocksBonds", {
  set.seed(6723217)
  gs1 <- random_grid_search_BEKK(data.matrix(StocksBonds))

  # Starting values should be equal for same seed

  expect_equal(trunc(sum(gs1[[1]])), 0 )
})

Try the BEKKs package in your browser

Any scripts or data that you put into this service are public.

BEKKs documentation built on April 12, 2025, 1:17 a.m.