tests/testthat/_problems/test_HistogramBinOrder-10.R

In DistributionalDDA: Distributional Data Analysis in Bayes Spaces

# Extracted from test_HistogramBinOrder.R:10

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