Nothing
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_))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.