tests/testthat/test-windowing_functions.R

In craddm/firfiltR: FIR filtering

context("test-windowing_functions.R")

test_that("generating different windows", {
  window_types <- c("hamming",
                    "blackman",
                    "blackmanharris",
                    "tukey",
                    "kaiser")
  bb <- lapply(window_types, select_window, 200)
  bb <- vapply(bb, length, numeric(1))
  expect_equal(bb, rep(201, length(window_types)))
})