library("vioplotx")
context("names input")
test_that("list input", {
data(iris)
vioplotx(iris$Sepal.Length[iris$Species=="setosa"], iris$Sepal.Length[iris$Species=="versicolor"], iris$Sepal.Length[iris$Species=="virginica"], names=c("a", "b", "c"))
})
test_that("naming formulae", {
data(iris)
vioplotx(iris$Sepal.Length~iris$Species, names=c("a", "b", "c"))
vioplotx(Sepal.Length~Species, data=iris, names=c("a", "b", "c"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.