tests/testthat/test_get_age_breaks.R

context("get vector of breaks")

test_that("get_age_breaks() works", {
  
  expect_identical(get_age_breaks(maxage = 50, agesplit = 5),  c(-1, 4, 9, 14, 19, 24, 29, 34, 39, 44, 49, 125))
  
})
ktbaek/c19dk documentation built on March 26, 2022, 1:47 a.m.