https://github.com/cran/scModels
Tip revision: ba14d424c697de7a21f22f10407afbab9c5aaf7d authored by Lisa Amrhein on 24 January 2023, 07:20:02 UTC
version 1.0.4
version 1.0.4
Tip revision: ba14d42
test-discrete-sum.R
test_that("Discrete probabilities sum to unity", {
expect_equal(sum(dpb(0:100, 5, 3, 20)), 1)
expect_equal(sum(dpb(x = 0:4000, alpha = 1.05, beta = 5.5, c = 709)), 1)
expect_equal(sum(dpb(x = 0:4000, alpha = 1.05, beta = 5.5, c = 2009)), 1)
expect_equal(sum(dpb(x = 0:4000, alpha = 1.05, beta = 5.5, c = 4009)), 1)
})
