tests/testthat/test-enframe.R

In vincenzocoia/distionary: Create and Evaluate Univariate Probability Distributions

test_that("enframe matches eval", {
	d <- dst_norm(0, 1)
	p <- 1:9/10
	x <- -3:3
	expect_equal(enframe_cdf(d, at = x)$cdf, eval_cdf(d, at = x))
	expect_equal(enframe_density(d, at = x)$density, eval_density(d, at = x))
	expect_equal(enframe_pmf(d, at = x, strict = FALSE)$pmf,
				 eval_pmf(d, at = x, strict = FALSE))
	expect_equal(enframe_odds(d, at = x)$odds,
				 eval_odds(d, at = x))
	expect_equal(enframe_survival(d, at = x)$survival, eval_survival(d, at = x))
	expect_equal(enframe_hazard(d, at = x)$hazard, eval_hazard(d, at = x))
	expect_equal(enframe_chf(d, at = x)$chf, eval_chf(d, at = x))
	expect_equal(enframe_quantile(d, at = p)$quantile,
				 eval_quantile(d, at = p))
})

test_that("enframe throws error if an ellipsis entry is not a distribution", {
	d <- dst_norm(0, 1)
	expect_error(enframe_cdf(d, at = 1:10, strict = TRUE))
	expect_error(enframe_cdf(d, 5, at = 1:10))
	expect_error(enframe_cdf(at = 1:10))
})

test_that("column names match the function, by default.", {
	d <- dst_norm(0, 1)
	expect_equal(names(enframe_cdf(d, at = 0))[2L], "cdf")
	expect_equal(names(enframe_pmf(d, at = 0, strict = FALSE))[2L], "pmf")
	expect_equal(names(enframe_odds(d, at = 0))[2L], "odds")
	expect_equal(names(enframe_density(d, at = 0))[2L], "density")
	expect_equal(names(enframe_quantile(d, at = 0.1))[2L], "quantile")
	expect_equal(names(enframe_chf(d, at = 0))[2L], "chf")
	expect_equal(names(enframe_hazard(d, at = 0))[2L], "hazard")
	expect_equal(names(enframe_survival(d, at = 0))[2L], "survival")
})