✅ Add test case for computing epanechnikov kernel

NONONOexe · Sep 10, 2024 · 6d5ef83 · 6d5ef83
1 parent 323ed5f
commit 6d5ef83
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-compute-epanechnikov.R b/tests/testthat/test-compute-epanechnikov.R
@@ -0,0 +1,5 @@
+test_that("`compute_epanechnikov` works for a vector of valid input", {
+  x <- seq(-1.5, 1.5, 0.5)
+  results <- compute_epanechnikov(x)
+  expect_equal(results, c(0, 0, 9/16, 3/4, 9/16, 0, 0))
+})