tests/testthat/test-kde_scores.R

test_that("multiplication works", {
  y <- c(rnorm(10), 100)
  expect_equal(
    max(density_scores(y, h = 1)),
    log(11 / dnorm(0, 0, 1))
  )
})

Try the weird package in your browser

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

weird documentation built on May 29, 2024, 1:24 a.m.