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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.