tests/testthat/test-divide_by_quantile.R

test_that("error handling works", {
  expect_error(
    divide_by_quantile(letters, 3),
    "`data` must be numeric; not character.",
    class = "error_argument_type"
  )
  expect_error(
    divide_by_quantile(1:10, 4.5),
    "`n` must be integer; not double.",
    class = "error_argument_type"
  )
  expect_error(
    divide_by_quantile(1:10, 4, na.rm = "true"),
    "`na.rm` must be logical; not character.",
    class = "error_argument_type"
  )
})

test_that("divide_by_quantile() works", {
  x <- c(1:9, NA)
  out <- divide_by_quantile(x, 3)

  expect_s3_class(out, "factor")
  expect_equal(
    out,
    factor(c(1, 1, 1, 2, 2, 2, 3, 3, 3, NA))
  )
})

Try the lvmisc package in your browser

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

lvmisc documentation built on June 22, 2024, 12:18 p.m.