tests/testthat/test-getBER.R

In MUVR2: Multivariate Methods with Unbiased Variable Selection

test_that("getBER works", {
  data("mosquito")
  actual <- Yotu
  set.seed(1)

  predicted <- sampling_from_distribution(actual)


  expect_equal( round(getBER(actual, predicted),2),
                0.80)
})