tests/testthat/test_pyramid.plot.R

In validmeasures/nipnTK: National Information Platforms for Nutrition Anthropometric Data Toolkit

library(nipnTK)
context("Tests for pyramid.plot")

svy <- dp.ex02
pyplot <- pyramid.plot(svy$age, svy$sex)

test_that("pyplot is table", {
  expect_is(pyplot, "table")
})

pyplot <- pyramid.plot(svy$age, svy$sex, col = c("red", "blue"))

test_that("pyplot is table", {
  expect_is(pyplot, "table")
})