tests/testthat/test-compute_density.R

context("compute_density")

x <- compute_density(mtcars[, 1], mtcars[, 2])

test_that("compute_density works", {
  expect_is(x, "numeric")
  expect_equal(length(x), nrow(mtcars))
})
ddiez/scmisc documentation built on July 21, 2024, 11:35 a.m.