tests/testthat/test_births.child_sex.R

context("DQ child_sex")

test_that("column is a factor type", {
  expect_is(births[, child_sex], "factor")
})

test_that("no missing data in field", {
  expect_equal(nrow(births[is.na(child_sex)]), 0)
})
Mikuana/vitalstatistics documentation built on May 7, 2019, 4:57 p.m.