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))
})