tests/testthat/test-convolve_fft.R

test_that("convolve_fft works", {
  
  y <- rep(0.25, 4)
  x <- rnorm(100)
  
  expect_equal(waterlevel::convolve_fft(x,y), 
               as.numeric(stats::filter(x=x, filter = y, sides = 1)))
  
  
})
jkennel/waterlevel documentation built on Dec. 1, 2019, 6:24 p.m.