tests/testthat/test-sextreme.R

test_that("sextreme", {
  rlang::scoped_options(lifecycle_verbosity = "quiet")
  expect_identical(sextreme(numeric(0)), numeric(0))
  expect_identical(sextreme(NA_real_), NA_real_)
  expect_identical(sextreme(0.5), 0)
  expect_equal(sextreme(seq(0, 1, by = 0.1)),
               c(Inf, 2.32192809488736, 1.32192809488736, 0.736965594166206,
                 0.321928094887362, 0, 0.321928094887363, 0.736965594166206, 1.32192809488736,
                 2.32192809488736, Inf))
  expect_equal(sextreme(seq(0, 1, by = 0.1), directional = TRUE),
               c(-Inf, -2.32192809488736, -1.32192809488736, -0.736965594166206,
                 -0.321928094887362, 0, 0.321928094887363, 0.736965594166206, 1.32192809488736,
                 2.32192809488736, Inf))
  expect_equal(sextreme(c(0, NA_real_)),
               c(Inf, NA_real_))
  expect_equal(sextreme(c(0, NA_real_), directional = TRUE),
               c(-Inf, NA_real_))
})

Try the extras package in your browser

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

extras documentation built on Aug. 5, 2021, 9:07 a.m.