mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-22 04:50:23 +01:00
6 lines
246 B
R
6 lines
246 B
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)
|
|
})
|
|
|
|
################################################################################ |