tests/testthat/test-getMISS.R

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


  expect_equal( getMISS(actual, predicted),
                6)
})

Try the MUVR2 package in your browser

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

MUVR2 documentation built on Sept. 16, 2024, 9:06 a.m.