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)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.