tests/testthat/test-utils.R

In np: Nonparametric Kernel Smoothing Methods for Mixed Data Types

test_that("npksum basic functionality works", {
  data("cps71")
  cps71_sub <- cps71[1:50,]
  
  k <- npksum(txdat=cps71_sub$age, tydat=cps71_sub$logwage, bws=1.0)
  
  expect_s3_class(k, "npkernelsum")
  expect_type(k$ksum, "double")
})

test_that("npseed works", {
  # npseed sets seed for C backend, doesn't affect R's runif
  expect_silent(npseed(42))
})

test_that("b.star works", {
  data("Italy")
  # b.star is for block size selection in bootstrap
  b <- b.star(Italy$gdp)
  expect_type(b, "double")
  expect_equal(nrow(b), 1)
})

test_that("b.star round=TRUE applies elementwise bounds for multivariate input", {
  set.seed(1)
  x <- cbind(arima.sim(n = 200, list(ar = 0.5)),
             arima.sim(n = 200, list(ar = 0.8)))

  b.raw <- b.star(x, round = FALSE)
  b.round <- b.star(x, round = TRUE)
  b.max <- ceiling(min(3 * sqrt(nrow(x)), nrow(x) / 3))

  expected <- cbind(
    pmax(1, pmin(b.max, round(b.raw[, "BstarSB"]))),
    pmax(1, pmin(b.max, round(b.raw[, "BstarCB"])))
  )
  colnames(expected) <- colnames(b.raw)

  expect_equal(b.round, expected)
})