tests/testthat/test-Male_Children.R

In Amalan-ConStat/R-fitODBOD: Modeling Over Dispersed Binomial Outcome Data Using BMD and ABD

context("Checking the Male Children Data")
test_that("Comparing values of No of Males",{
  expect_equal(Male_Children$No_of_Males,seq(0,12))
})

test_that("Comparing values of frequency",{
  expect_equal(Male_Children$freq,c(3,24,104,286,670,1033,1343,1112,829,478,181,45,7))
})