tests/testthat/test-BODextract.R

In fitODBOD: Modeling Over Dispersed Binomial Outcome Data Using BMD and ABD

context("Checking the BODextract")
test_that("Length being equal for output list",{
        expect_equal(length(BODextract(sample(0:10,340,replace=TRUE))),2)
        })

test_that("Length being equal to output of Random Variable",{
        expect_equal(length(BODextract(sample(0:10,340,replace=TRUE))$RV),11)
        })
test_that("Length being equal to output of Frequency",{
        expect_equal(length(BODextract(sample(0:10,340,replace=TRUE))$Freq),11)
        })