tests/testthat/test-truncate.R

trunced <- truncate(1:100, prob = 0.05)

test_that("truncate works", {
  expect_equal(min(trunced, na.rm = TRUE), 6)
})

test_that("truncate works", {
  expect_equal(max(trunced, na.rm = TRUE), 95)
})

Try the farr package in your browser

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

farr documentation built on Feb. 16, 2023, 8:11 p.m.