tests/testthat/test-sextreme.R

test_that("sextreme", {
  rlang::local_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 April 4, 2025, 2:40 a.m.