tests/testthat/test-winsorize.R

winsorized <- winsorize(1:100, prob = 0.05)

test_that("winsorize works", {
  expect_equal(min(winsorized, na.rm = TRUE), 5.5)
})

test_that("winsorize works", {
  expect_equal(max(winsorized, na.rm = TRUE), 95.5)
})
iangow/farr documentation built on Feb. 13, 2025, 2:53 p.m.