context("test-wave")
test_that("examples", {
wave(.sparse_fr_spectrum(400, 1)) %>% as.numeric %>%
expect_equal(
seq(from = 0, to = 1, length.out = 44101) %>%
{.[1:44100]} %>%
{sin(2 * pi * 400 * .)}
)
sparse_fr_spectrum(fr_chord(400), num_harmonics = 1) %>%
expect_equal(.sparse_fr_spectrum(400, 1),
tolerance = 1e-7)
expect_equal(length(wave(60)), 44100)
expect_equal(wave(60), wave(pi_chord(60)))
expect_error(wave(milne_pc_spectrum(60)),
"don't know how to translate this object to pi_chord format")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.