tests/testthat/test-Alcohol_data.R

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

context("Checking the Alcohol Data")
test_that("Comparing values of Days",{
        expect_equal(Alcohol_data$Days,seq(0,7))
        })

test_that("Comparing values of week1",{
        expect_equal(Alcohol_data$week1,c(47,54,43,40,40,41,39,95))
        })

test_that("Comparing values of week2",{
        expect_equal(Alcohol_data$week2,c(42,47,54,40,49,40,43,84))
        })