tests/testthat/test_starts.R

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

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"))

expect_equal(
  get_univariate_ml_support(list(
    support = list(bounds = c(0, 1), type = "continuous")
  )),
  list(bounds = c(0, 1), type = "continuous")
)