tests/testthat/test_select_valid_masks.r

In roqua/autovarCore: Automated Vector Autoregression Models and Networks

context('select_valid_masks')

test_that('select_valid_masks returns the correct result', {
  all_outlier_masks <- 0:7
  invalid_mask <- 3 # columns 1 and 2 are invalid
  expected_result <- c(0, 4)
  expect_equal(autovarCore:::select_valid_masks(all_outlier_masks,
                                                invalid_mask),
               expected_result)
})

test_that('select_valid_masks works with an empty invalid_mask', {
  expect_equal(autovarCore:::select_valid_masks(0:7, 0), 0:7)
  expect_equal(autovarCore:::select_valid_masks(0:63, 0), 0:63)
})