https://github.com/cran/bayestestR
Tip revision: 6acd4f1707b182a2cbe2f4a4c2d4196571d36eb3 authored by Dominique Makowski on 05 December 2020, 08:30:02 UTC
version 0.8.0
version 0.8.0
Tip revision: 6acd4f1
test-estimate_density.R
if (require("logspline") && require("KernSmooth") && require("mclust")) {
test_that("estimate_density", {
set.seed(333)
x <- distribution_normal(500, 1)
# Methods
density_kernel <- estimate_density(x, method = "kernel")
density_logspline <- estimate_density(x, method = "logspline")
density_KernSmooth <- estimate_density(x, method = "KernSmooth")
density_mixture <- estimate_density(x, method = "mixture")
testthat::expect_equal(mean(density_kernel$y - density_logspline$y), 0, tol = 0.1)
testthat::expect_equal(mean(density_kernel$y - density_KernSmooth$y), 0, tol = 0.1)
testthat::expect_equal(mean(density_kernel$y - density_mixture$y), 0, tol = 0.1)
})
}