https://github.com/cran/bayestestR
Tip revision: e1fa15d202de277bb07e58bb3013557724072b2b authored by Dominique Makowski on 22 September 2019, 15:30:05 UTC
version 0.3.0
version 0.3.0
Tip revision: e1fa15d
test-estimate_density.R
context("estimate_density")
test_that("estimate_density", {
library(logspline)
library(KernSmooth)
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")
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)
})