tests/testthat/test-bwTs.R

In circularKDE: Recent Methods for Kernel Density Estimation of Circular Data

test_that("bwTs returns a numeric value for valid input", {
  set.seed(60)
  x <- rvonmises(50, circular(pi), 1)
  result <- bwTs(x)
  expect_equal(result, 2.301015)
  expect_type(result, "double")
  expect_length(result, 1)
})

test_that("bwTs returns a numeric value for valid input", {
  set.seed(123)
  x <- rvonmises(50, circular(pi / 2), 1)
  result <- bwTs(x)
  expect_equal(result, 2.942911)
  expect_type(result, "double")
  expect_length(result, 1)
})

test_that("bwTs throws error on empty input", {
  expect_error(bwTs(numeric(0)), "`x` must be a non-empty object.")
})

test_that("bwTs throws error if input is not numeric", {
  expect_error(bwTs(c("a", "b")), "must be a numeric vector")
})

test_that("bwTs throws error if x contains only NAs", {
  x <- c(NA, NA)
  expect_error(bwTs(x), "`x` contains all missing values.")
})

test_that("bwTs removes NA values and returns result", {
  x <- circular(c(0, pi / 2, NA, pi, 3 * pi /2, 2.14))
  result <- bwTs(x)
  expect_type(result, "double")
  expect_cli_warning(bwTs(x),
                     1,
                     "! `x` contains missing values, which will be removed.")
})