tests/testthat/test-npuniden.R

In np: Nonparametric Kernel Smoothing Methods for Mixed Data Types

test_that("npuniden.boundary basic functionality works", {
  set.seed(42)
  n <- 50
  X <- rbeta(n, 5, 1)
  
  # Use fixed bandwidth for speed
  model <- npuniden.boundary(X, h=0.05, a=0, b=1)
  
  expect_type(model, "list")
  expect_true("f" %in% names(model))
  expect_length(model$f, n)
  expect_true(all(model$f >= 0))
})

test_that("npuniden.reflect basic functionality works", {
  set.seed(42)
  n <- 50
  X <- rbeta(n, 5, 1)
  
  model <- npuniden.reflect(X, h=0.05, a=0, b=1)
  
  expect_type(model, "list")
  expect_true("f" %in% names(model))
})

test_that("npuniden.sc basic functionality works", {
  set.seed(42)
  n <- 50
  X <- rbeta(n, 5, 1)
  
  # Shape constrained density estimation
  model <- npuniden.sc(X, h=0.05, a=0, b=1, lb=0, ub=Inf, constraint="density")
  
  expect_type(model, "list")
  expect_true("f" %in% names(model))
})