tests/testthat/test_uniqueness.R

test_that(
  'uniqueness_probability',
  expect_true(uniqueness_probability(400, 50) < 0.5)
)

test_that(
  'uniqueness_max_size',
  expect_equal(round(uniqueness_max_size(2048, 0.01)), 6)
)

Try the keyToEnglish package in your browser

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

keyToEnglish documentation built on Feb. 14, 2021, 1:05 a.m.