test_that("basic", {
dev.off()
data(tico)
frd <- freq_range_detec(
wave = tico, wl = 512, fsmooth = 0.01, threshold = 1, bp = c(2, 8),
widths = c(4, 2)
)
expect_equal(nrow(frd), 1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.