set.seed(719)
require(tuneR)
context("dotplot")
test_that("dotplot matches", {
x <- sonify(iris[1:10,], sonaes(time = Petal.Length)) + shape_dotplot(jitter = 0.3)
soncompare(x, "test-dotplot.wav")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.