inst/tests/test-shape-dotplot.R

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")
})
statisfactions/playitbyr documentation built on Jan. 27, 2024, 1:33 p.m.