mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-22 21:10:23 +01:00
5 lines
165 B
R
5 lines
165 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)
|
||
|
})
|