tests/testthat/_problems/test_HistogramBinOrder-13.R

In DistributionalDDA: Distributional Data Analysis in Bayes Spaces

# Extracted from test_HistogramBinOrder.R:13

# setup ------------------------------------------------------------------------
library(testthat)
test_env <- simulate_test_env(package = "DistributionalDDA", path = "..")
attach(test_env, warn.conflicts = FALSE)

# test -------------------------------------------------------------------------
w <- c(4, 3, 2, 1)
f <- .DensityFromHist(w, breaks = 0:4)
expect_equal(f(c(0.5, 1.5, 2.5, 3.5)), c(4, 3, 2, 1))
expect_equal(f(c(-1, 5)), c(0, 0))
lf <- .LogDensityFromHist(w, breaks = 0:4, background = 0)
expect_equal(lf(c(0.5, 3.5)), log(c(4, 1)))