tests/testthat/test-filters.R

In topdowntimeratio: Top-Down Time Ratio Segmentation for Coordinate Trajectories

test_that("meanFilter returns the mean", {
  expect_equal(meanFilter(c(1, 2, 3, 4, 5, 6, 7), n = 5), c(NA, NA, 3, 4, 5, NA, NA))
  expect_equal(meanFilter(c(1, 1, 1, 1, 1, 1, 1), n = 5), c(NA, NA, 1, 1, 1, NA, NA))
  expect_equal(meanFilter(c(1, 1, 1, 1, 1, 1, 1), n = 3), c(NA, 1, 1, 1, 1, 1, NA))
})