stRoke/tests/testthat/test-age_calc.R

test_that("age_calc works for vectors of length 1 (scalars)", {
  result<-age_calc(as.Date("1945-10-23"),as.Date("2018-09-30"))
  expect_equal(round(result), 73)
})

################################################################################
cpr_tools 2022-09-22 14:20:46 +02:00			`test_that("age_calc works for vectors of length 1 (scalars)", {`
			`result<-age_calc(as.Date("1945-10-23"),as.Date("2018-09-30"))`
			`expect_equal(round(result), 73)`
			`})`
updates 2022-09-22 14:47:33 +02:00
quantile_cut and age_calc tests 2022-09-23 09:14:47 +02:00			`################################################################################`