stRoke/tests/testthat/test-pase_calc.R

5 lines
183 B
R
Raw Normal View History

test_that("pase_calc works", {
expect_equal(median(pase_calc(stRoke::pase)[,13],na.rm=TRUE), 128.625)
expect_equal(median(pase_calc(stRoke::pase,TRUE)[,13],na.rm=TRUE), 116.2)
})