library("vioplotx")
context("NA handling for vector or formula input")
test_that("plot data list input", {
data(iris)
iris[2,3]<-NA
boxplot(iris$Sepal.Length[iris$Species=="setosa"], iris$Sepal.Length[iris$Species=="versicolor"], iris$Sepal.Length[iris$Species=="virginica"], names=c("setosa", "versicolor", "virginica"), main = "Sepal Length")
vioplotx(iris$Sepal.Length[iris$Species=="setosa"], iris$Sepal.Length[iris$Species=="versicolor"], iris$Sepal.Length[iris$Species=="virginica"], names=c("setosa", "versicolor", "virginica"), main = "Sepal Length")
})
test_that("plot vector formula input", {
boxplot(iris$Sepal.Length~iris$Species)
vioplotx(iris$Sepal.Length~iris$Species)
})
test_that("plot column formula with dataframe input", {
boxplot(Sepal.Length~Species, data=iris)
vioplotx(Sepal.Length~Species, data=iris)
})
test_that("plot formula with dataframe input and scalar colour", {
vioplotx(Sepal.Length~Species, data=iris, col="lightblue")
})
test_that("plot formula with dataframe input and vector colour", {
vioplotx(Sepal.Length~Species, data=iris, col=c("lightgreen", "lightblue", "palevioletred"))
})
# iris <- as.matrix(iris)
# test_that("plot column formula with matrix input", {
# vioplotx(Sepal.Length~Species, data=iris)
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.