tests/testthat/test_starts.r

In kdensity: Kernel Density Estimation with Parametric Starts and Asymmetric Kernels

context("parametric starts")

t_without_estim = list(
  density = dt,
  support = c(-Inf, Inf)
)

t_without_support = list(
  density = dt,
  estimator = function(x) NULL
)

t_without_density= list(
  estimator = function(x) NULL,
  support = c(-Inf, Inf)
)

t = list(
  density = dt,
  estimator = function(x) NULL,
  support = c(-Inf, Inf)
)

expect_equal(get_start("normal")$support, c(-Inf, Inf))
expect_silent(add_start("t", t))
expect_error(add_start("t", t_without_estim))
expect_error(add_start("t", t_without_support))
expect_error(add_start("t", t_without_density))
expect_error(get_start(5))
expect_error(get_start("no_start"))